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1.0  INTRODUCTION 

The  availability  of  increased  computer  power  within  the  past  decade  has  spurred 
considerable  effort  toward  development  of  computer  programs  for  the  numerical  solution 
of  the  Navier-Stokes  equations.  The  first  and  continuing  effort  involved  numerical 
solution  by  finite-difference  schemes.  In  recent  years,  however,  other  methods  have  come 
under  investigation;  two  of  these  methods  are  finite  elements  and  spline  collocation.  A 
preliminary  test  of  spline  collocation,  namely  application  to  numerically  solve  various 
two-point  boundary-value  problems,  is  the  subject  of  the  present  report.  Pertinent  spline 
theory  is  developed  from  first  principles.  The  spline  collocation  method,  which  is  similar 
to  that  used  by  Rubin  and  Khosla  (Ref.  1),  is  also  fully  developed.  The  problems 
considered  are  nonlinear,  third-  order,  ordinary  differential  equations.  A FORTRAN  IV 
computer  program  to  solve  such  problems  is  described,  together  with  a source  deck 
listing.  Several  example  problems  solved  by  the  program  are  presented. 

A spline  interpolates  between  points  by  polynomials  determined  by  various 
conditions  of  continuity.  If  a spline  using  polynomials  of  degree  p is  continuous  along 
with  its  first  q derivatives,  o < q < p,  then  the  spline  is  said  to  have  a deficiency  of  p - q.  For 
example,  a cubic  spline  with  continuous  second  derivatives  has  a deficiency  of 
one.  Rubin  and  Khosla  (Ref.  1)  have  shown  that  classical  three-point  difference  formulas 
are  equivalent  to  a quadratic  spline  with  a deficiency  of  zero.  The  method  presented  in 
this  report  uses  a quintic  spline  of  deficiency  three. 

Three-point,  finite-difference  methods,  when  applied  to  a linear  equation,  produce  a 
tridiagonal  algebraic  system  to  be  "solved  (Ref.  2),  whereas  spline  collocation  (for 
second-order  equations)  produces  a tridiagonal  system  of  2 by  2 blocks.  End  conditions 
involving  first  and  second  derivatives  are  naturally  imposed  using  spline  collocation.  For 
uniform  grid  spacing  the  three-point,  finite-difference  formula  for  the  second  derivative 
yields  a second-order  approximation,  whereas  the  quintic  spline  gives  third-order  accuracy. 

Splines  were  originally  invented  for  interpolation,  which  means  that  interpolation  of 
spline  solutions  is  immediately  available.  This  plus  the  suitability  of  spline  collocation  to 
handle  nonuniform  spacing  makes  it  feasible  to  change  grid  spacing  between  iterations. 
This  can  be  used  effectively  to  improve  accuracy  of  the  resulting  solution. 

It  is  concluded  that  splines  have  many  useful  features  and  should  have  a role  in 
future  techniques  for  solving  complicated  problems. 
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2.0  SPLINE  THEORY 

Given  points  (Xj,  yj  with  i = 1,  2,  N,  a spline  has  the  following  properties: 

1.  It  is  a function  defined  on  [xi,,xn]. 

2.  It  passes  thru  the  points. 

3.  It  is  continuous.  The  splines  considered  in  this  report  have  continuous  first 
and  second  derivatives. 

4.  It  is  defined  by  (N-  1)  polynomials,  one  for  each  interval  [xj,  Xj  + j ].  The 
polynomials  are  determined  by  the  conditions  of  continuity  and  the  end 
conditions. 

It  is  convenient  for  the  succeeding  analysis  to  make  the  following  definitions. 


2.1  CUBIC  SPLINES 

A cubic  spline  is  defined  by 

s(x)  = p,  (x)  (5) 

for  Xj  < x < x1+i  with  i = 1,  2,  ...,  N - 1 where  the  p,(x)  are  cubics.  Since  s(x)  passes 
thru  the  points, 

9{xi)  = Yi  (6) 

Since  s(x)  is  assumed  to  have  continuous  first  and  second  derivatives,  one  can  make  the 
definitions 

"i,  = s'fxj)  (7) 

and 

Mj  = (g) 
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The  pj(x)  can  be  written  in  terms  of  the  m;  as  follows.  Define 


and 


then  pi(x)  can  be  written 


The  first  derivative  is 


and  the  second  derivative  is 


hf 


and 


= y;  + L hjtn; 

(9) 

>'i+l  - i hi  mi+] 

(10) 

u 7,  ef + 3 yBi  rif  e\  + yi+i  i\ 

(11) 

-y.  + yA,  Wi  - o . 

'i  i2ei  ~ rij)  + yi+1  if] 

(12) 

; - 2e)  + y b i - 2ji)  + yl+i  9s] 

(13) 

confirmed  that,  as  defined, 

P;Ui)  = Xj 

(14) 

^1+ 1>  = yi+i 

(15) 

(Xj)  = m, 

(16) 

<x1+ll  = mi+l 

(17) 

The  p,(x)  have  been  written  in  terms  of  the  nij  which,  as  yet,  have  not  been 
determined.  A relation  among  the  m*  can  be  derived  by  the  requirement  that  the  second 
derivative  be  continuous;  thus, 

Pi-i  = p,"  (xj)  = Mj  (18) 

From  Eq.  (13), 


Pi-1  <xi>  = -f-  [ ^ A , i — X ~ 2>'B,i-l  + Vi] 
hi-l 

Thus  after  substituting  Eqs.  (9)  and  (10)  into  (19)  and  simplifying, 

M;  = j-2_  (2m;  + m^,)  - (y.  - y.^) 

i-l  h,_l 


(19) 

(20) 
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Again,  from  Eq.  (13), 


•r  («,)  - 4 [>i  - 2i-ai  <-  >Bi] 


(21) 


which,  after  substitution  of  Eqs.  (9)  and  (10),  yields 

Mj  = \ <yi+i  - y)  - f (2mi  + mi+i) 


(22) 


Subtracting  Eq.  (22)  from  Eq,  (20)  and  simplifying  gives  the  desired  relation  among  the 

mi, 


m - 


i—  \ 


2 ( — 1 — - J_ ) m + _L  m , 

V h.  h.  ) 1 h 1+1 

1—  l 1 1 


= _ 3 


-4-  y,  , + 3 /_L_  - ±\y 
1-1  U2  h2^1 

11  l— I i 


' 1+1 


Assume  end  conditions 


A-  V:  + B, 


+ C:  M.  - D. 


(23) 


(24) 


for  i = 1 and  N where  Aj,  Bj,  Q,  and  Dj  are  given  constants.  In  each  case,  i = 1 or  i = N, 
at  least  one  of  the  coefficients,  Bi  or  Q,  must  be  nonzero.  Since  the  Vj  are  given,  the  Aj 
are  unnecessary  and  can  be  assumed  zero.  They  were  included  for  purposes  of  Section  3 
on  spline  collocation  where  the  y;  are  unknown.  With  i = 1,  substitution  of  Eq.  (22)  into 
(24)  yields 


(B»  -i^c0 

- D,  - ( 


-L  C 


1 “'2 


A,  - 3_  C 


-]  * 2 


(25) 


l i 

Similarly,  with  i = N,  substitution  of  Eq.  (20)  into  (24)  yields 


N-l 


h) 


mN  + CTimN-l 

“N— 1 


°N  ~ (AN  - -J—  Cn)  Xn  - -4—  CN  fN-1 

v n , / hr.  . 


(26) 

’ P>— 1 ' 1 

Equations  (25),  (23)  with  i = 2,  3,  ...,  N - 1,  and  Eq,  (26)  form  a tridiagonal  system 
which  can  be  solved  for  the  mj.  When  the  solution  for  the  irq  has  been  effected,  the 
spline  is  known. 

It  is  a straightforward  matter  to  derive  formulas  for  the  integral  of  the  spline.  If  one 
has  a formula  for 


J.  (a,  b)  = J pj  (x)  dx 


(27) 
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where  Xj  < a < b < x,+  t then  the  integral  over  an  arbitrary  subinterval  of  [xt , ] can 

be  obtained  by  summing  the  appropriate  Jj(a,b)  with  the  proper  arguments.  When  Eq. 
(11)  is  integrated, 


J,(a , b)  = 


+ 


hi  [-J  y,  dt  - yAi  + ei)  e\ 
(*5  + -J  *0  + l xi+i  >??]  ' 


(28) 


Of  particular  interest  is 


Ji  (xi'  xi+i) 


h r 

t ^ 


>Ai 


>Bi  + 


1 + 


l] 


(29) 


When  one  has  the  given  points,  (Xj,  yj),  and  the  calculated  nij,  then  the  Mj  can  be 
computed  from  Eqs.  (20)  and  (22).  In  analysis,  in  order  not  to  give  preferential 
treatment  to  one  formula  or  the  other  at  interior  points,  it  is  expedient  to  average  the 
two  equations  to  arrive  at 


«i  = 


m,-l 

+ 2 

| m . — . L 

mi+ 

1 1 h. 

1 

>i-l 

-3( 

( JL_  + I\ 

^2,  h2 ; 

V;  + 2L 
h2 

>'i+l 

(30) 


The  fundamental  relation,  Eq.  (23),  was  found  by  subtracting  Eq.  (20)  from  (22). 
Equation  (20)  was  obtained  by  adding  Eqs.  (20)  and  (22).  So,  in  that  sense,  there  is  a 
symmetrica]  relation  between  Eqs.  (23)  and  (30). 


By  eliminating  the  yx  from  Eqs.  (20)  and  (22),  a relation  between  the  mj  and  Mj  is 
obtained. 


M 


i-l 


Mj  = _L  (mj+i  - In.) 


(31) 


The  spline  relations  have  been  written  in  terms  of  unknown  mj.  Analogous  formulas 
in  terms  of  unknown  M,  can  be  derived.  Replacing  i with  (i  + 1)  in  Eq.  (20)  and 
eliminating  mj+i  from  Eqs.  (20)  and  (22)  yields 


”,  - - v,>  - y-  PM,  * M,,i> 


h 

i 

6 


(32) 


Replacing  i with  (i-l)  in  Eq.  (22)  and  eliminating  nv,  from  Eqs.  (22)  and  (20)  yields 


h . 

t—  L 

Averaging  Eqs.  (32)  and  (33)  gives 

m 

2h . 


i = (>’i  - y i_i)  + — E-i  (2M;  + M^j) 


(33) 


t,  * i (t, ' r)  a * it 

+ j=l  Mm  + I (h^j  - h)  M.  - !ll  M.  . 
12  11  6 1 12  1+1 


(34) 
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Subtracting  gives 


V Mm  ♦ 1 (h,.,  * h,)  M,  + h.  M,_, 


The  end  conditions,  Eq.  (24),  in  terms  of  unknown  Mj  are  found  to  be 

(c,  - ^ B, 


(35) 


and 


= Di  - (A1  - r Bi)  >'1  - ST  B!  y2  (36) 

nl  1 

(c„  * Bs ) Mk  * Bk  M,., 


" D7  ~ (An  " Bn)  * Vi  B”'  >N-1  (37) 

As  an  alternative  to  solving  for  the  ma,  Eqs.  (36),  (35)  with  i = 2,  3,  N - 1,  and  Eq. 
(37)  form  a tridiagonal  system  which  can  be  solved  for  the  Mj. 


The  preceding  formulas  on  cubic  splines  are  adequate  for  the  present  analysis.  For  a 
complete  treatment  and  proofs,  see  Ref.  3. 

2.2  TRUNCATION  ERROR  OF  CUBIC  SPLINE  FORMULAS 


Fyfe,  Ref.  4,  used  operator  methods  to  obtain  a Taylor  expansion  of  cubic  spline 
relations  with  uniform  spacing.  His  work  can  be  generalized  for  unequal  spacing  as 
follows.  Define  the  operator  Es  by 


Ei  y.  = y i+ 1 os) 

Let  y(x)  be  a function  such  that  y(Xj)  - yj.  Indicate  the  jth  derivative  by  yO)(x)  and 
define  yQ>  = y<J)(xj).  For  the  purpose  of  this  error  analysis,  the  tenth  derivative  will  be 
assumed  continuous.  Expanding  the  right-hand  side  of  Eq.  (38)  in  a Taylor  series, 


Ei  >'i  = >'i  + hi  + \ Yi  + • * • • 

Using  the  operator  D to  denote  differentiation,  from  Eq.  (39), 

E.  = 1 + h.  D + i h?  D2  - . . . , 

i 1 2 

and  it  is  interesting  to  observe  that 

Ej  = exp  (hj  D) 

where  the  exponential  is  defined  by  its  expansion. 


(39) 

(40) 

(41) 
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Since 


Jl-1 


Vi 


(42) 


then  (assuming  existence) 


and  from  Eq.  (41), 


EjJ,  = exp  D) 


(43) 

(44) 


Some  consider  the  last  step  presumptuous;  however,  understanding  that  operator 
expressions  are  merely  convenient  representations  of  series,  and  assuming  linearity,  the 
distributive  law,  etc.,  rigorous  justification  is  possible.  This  section  will  lean  heavily  on 
such  algebraic  analogies. 


In  operator  notation,  Eq.  (23)  becomes 


E7-l  + 2 


( + _L  E.l  m . 

U h / h 'J  1 

1—1  1 1 -1 


= I"— SL  E71,  - 3 ( _J_  - _L\  + JL  E.ly. 

L h . -1  U2 , h2 ) h2  lJy' 

1 1—  I 1 I 


and  solving  for  mb 


r-  3 e_i,  + 3 1 

( 1 

- 1 "“I 

* — 

ui 

1^- 

+ 

L v.  - 1 

hO 

1 

tt,  ETJ‘ + 2 1 

f-L-  - _L) 

<hi~i  h.' 

+ JL  E . " 

h 

1 J 

or,  if  one  expands  Eq.  (46)  into  a series, 

mi  = t1  - £ ^i-1  * » (*>1-1  O' 


(45) 


(46) 


gi-i  gli  + 1 
1 a 0 u j + 1 


<hi-i  m* 


1 

2,160 


a 


i-l 


(<7 


1—1 


- 1)  (3(7 


2 

i-l 


5(7 + 3)  (h D)5  + . . . . y.'  (47) 


where  1 is  defined  by  Eq.  (2).  Thus  it  is  found  that  mj  is  a second-order-accurate 
approximation  to  yj  (third-order  error).  For  uniform  spacing  (<7^  = 1),  it  is  third-order 
accurate. 
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SO 


or 


In  operator  notation,  Eq.  (31)  becomes 

(E-  + 1)  M.  = _2  (E  - I)  m. 
1 1 h 1 1 


M,  = -JL  tanh^i  E mi 


M.  = _2_ 

1 h 


: fe D)  - 1 (i h. D)3 


(48) 

(49) 


(50) 


Combining  with  Eq,  (47)  yields 

r 
M 


i ■ [>  - ^ <Ki  m2  - ± - dX-i  m3 

* ^ “1-1  °“tl  - 2“ll  + 2“1-1  " 2>  «V,  D)* 

<Vl  Vi  ~ D (vL  ~ 10 aj_j  + 6)  (hi_1  D)5  . . . .]  yr 


(51) 


Thus,  Mi  is  a first-order-accurate  approximation  to  y”  (second-order  error).  For  uniform 
spacing  (ap]  = 1)  it  is  a second-order-accurate  approximation. 

Equations  (47)  and  (51)  do  not  agree  exactly  with  Rubin  and  Khosla  (Ref.  1); 
however,  as  Ref.  1 points  out,  the  expression  derived  depends  on  which  equation  one 
begins  with.  This  discrepancy  is  explained  by  the  limited  information  conveyed  by  N 
points.  The  N points  determine  a polynomial  of  degree  (N  - 1),  but  there  are  infinitely 
many  polynomials  of  higher  degree  which  pass  thru  the  points.  Thus  a Taylor  expansion 
of  the  method  is  not  unique.  Considering  the  nonuniqueness,  one  may  wonder  about  the 
value  of  the  error  analysis.  The  value  comes  from  the  conclusions  drawn  on  the  order  of 
the  method,  which  are  valid  and  useful.  From  the  error  analysis,  higher  order 
approximations  will  be  derived. 


Substituting  Eqs.  (9)  and  (10)  into  (29)  gives 
Ji  K • xi+i)  = \ \ (>'i  + >■:+!> 


1 h?  (rvj 


12 


- m.) 


(52) 


This  is  seen  to  be  the  trapezoidal  rule  plus  an  extra  term.  In  operator  notation, 


Ji  K • *i.l>  = [ hi  <E,  + 1)  7!  - i h?  (E-  - 11  m ■ 


(53) 
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Substituting  Eq.  (47)  into  (53)  and  expanding  gives 


J!  (xi  - Vl1 


1 h.  D + 1 (h.  D)2  + X (h.  D)3 

2 1 6 24  1 


+ 


1 (h.  D)4  + 3g?-i  + 50 i-i  5 

144  ‘ (12)  (360)ff2_1 


(h;  D)5 


+ 9<7-i  ~ 9fVi  + 4 (h,  D)6 
(12)  (720)a3_l 


i - y 

i 7 \ 


(54) 


Expanding  y(x)  in  a Taylor  series  and  integrating,  one  finds  that 

xi+i 

I \ fh  mJ  I 

hi>'. 


(h.  D)] 

(j  + 1)' 


L i~o 


j y(x)  d x = 

X . 

I 

Comparing  Eqs.  (54)  and  (55), 

xi+i 

Ji  (xi  • x1+l>  - f yW  dx  - _L_  (h.  D)5  1 

111+1  J 720  1 


(55) 


j — 5c  , + 5 ! r>. 

+ !Zli ilJ h-  D 

>>  1 

6ah 


12cr3  , - 6 3a2  . + 63a  , - 20 

1~  1 1—  i 

84a3 

1—1 


(h.  D)2  + 


J 


(56) 


Thus,  the  formula  is  found  to  be  fourth-order  accurate  (fifth-order  error). 

2.3  HIGHER  ORDER  APPROXIMATIONS 

From  Eq.  (5 1 ), 


yf  = m,  + 


12 


7 


h 


2 

i-] 


y;v 


+ 


(57) 
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If  an  approximation  of  zero-order  accuracy  (first-order  error)  were  known  for  yiv, 
then  substitution  into  Eq,  (57)  would  yield  a second-order-accurate  approximation  for 
y".  Consider  the  conjecture 


.j  (ffj_ j + l)  hf_j 


K 


1 Mi-1 


which  is  the  three-point,  finite-difference  formula 
(58)  into  Eq.  (57)  yields,  as  the  approximation  for 


- (a^j  + 1)  M-  + Mi+1]  (58) 

applied  to  the  Mj.  Substitution  of  Eq. 


JRS 


i = “i  - ^ ["i-l  - bw  + » 


4 M: 


w] 


(59) 


where 


+ 1 


Note  that  if  Aj  - 0 then  Ifij  = M,.  In  operator  notation, 

*i  - - A [«i-l  - (0,-1  - » + 

or,  expanding  the  operator, 

*,  = j1  ti  ffi->  + 11  (h-l  0)2 

+ jV  *i-l  bli  - D D)3  + _L  or._1  (atj  4-  1)  (h^  D)4 

* ~ *i-l  (°U  ~ 1>  Oh-1  D)5  * • . • ■]}  Mi 

Substituting  Eq.  (51)  into  (62)  gives 


(60) 


(61) 


(62) 


X = !l  4 ( A 

. + 1 _ i\  (v  , n\  2 

1 ) 12  v 

1 ) V1-1  ) 

4.  **-1  '*1-1  ~ 11 

[2Aj  (tr^j  - 1)  - l]  (hj.j  D)3 

72 

4 aJ=L  [2  (3 of  . ' 
720  1-1 

- 2 a?_i  4 2t7j_j  - 2)  - 5Aj 

_ ai-l  - 15 

[^i  +■  lH4crf_j  4 S7j_j  - 

(30)044) 

4 . . . . ( y- 

- x>]  (h;.!  D)4  ' 

6)  - (a^  - 107J.J 


+ 6)]  (hj_,  D)5 
(63) 
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By  design,  when  Af  is  given  by  Eq.  (60),  JH*  is  a second-order-accurate  approximation  to 
y”  (third-order  error)  and  for  uniform  spacing  (<7j.i  = 1),  it  is  third-order  accurate. 
This  is  somewhat  different  from  that  of  Rubin  and  Khosla,  Ref.  1,  who  reached  the  same 
results  but  with 


A,  = 


. + 1 
1—  1 


(64) 


This  discrepancy  is  not  caused  by  error  but  is  explained  in  the  discussion  following  Eq. 
(51).  Note  for  uniform  spacing  (api  = 1)  that  Eqs.  (60)  and  (64)  both  give  A,  = 1/2.  In 
the  limit  as  o^i  approaches  infinity,  both  equations  give  Aj  = 1;  however,  as  a,.i 
approaches  zero,  Eq.  (60)  yields  A;  = 0,  whereas  Eq.  (64)  gives  A,  = infinity. 


In  an  analogous  manner,  a higher  order  approximation,  to  yj,  can  be  obtained. 
Substituting  Eq.  (58)  into  Eq.  (47),  let 


where 


M = mi  + 1 [pi-l  Mi-1  - (pi-l  * 11  Mi  + Mi+l] 


8: 


Pi-1~  1 
<\-l  * 1 


(65) 

(66) 


Note  for  uniform  spacing  (om  = 1)  that  5;  = 0 and  = mj.  Therefore,  is  an 
improvement  over  mj  only  for  nonuniform  spacing.  However,  for  uniform  spacing,  mi  was 
already  third-order  accurate.  In  the  limit,  when  CTj.i  = 0,  then  6,  = -1,  and  when  = 
infinity,  then  = 1.  In  operator  notation, 


m 


] 


m + _2 1 

1 36 


E 


-1 

i-l 


+ I) 


EJ'l, 


(67) 


Expanding  the  operator  and  substituting  Eqs.  (47)  and  (51)  into  Eq.  (67)  yields 


mi 


j 1 + ^ (ai-J 


+■  1)  - (ffj.!  - D]  (\_i  n)3 


+ 


f"  5£  (af_  j 

180  L 1 11 


1)  - 6 °?~i+  1 ] (h.  , D)4 


1 (q‘~I  U [58,  (<r;  , + 1)  + 2 

t *-  1 * > I- 


- l) 


4,320 


i-l 


^i-l  + 3>]  (h;_i  D)5 


+ * • 


>'i 


(68) 
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By  design,  when  5;  is  given  by  Eq.  (66),  "j  is  a third-order- accurate  approximation  to 

y[  (fourth-order  error). 

/ 

The  analysis  on  and  Jlq  is  valid  only  at  interior  points  (i  = 2,  3 N - 1).  At  the 

end  points  (i  = 1 and  N)  they  will  be  defined  as  mj  = nq  and  Jlij  = M,. 

In  the  next  section  an  approximation,  K;  (xj,  xi+1),  to  the  integral  of  Eq.  (55)  will 
be  derived  as  follows: 

Ki  Ui  • xi+l)  = \ hi  + yi+i>  - £ <-5+1  - "i)  (69) 


+ -5—  hf  (M.  + Jni+1) 
120  1 1 1+1 


It  is  convenient  to  include  the  error  analysis  of  the  formula  at  this  time.  In  operator 
notation 

K;  («,  , *,+  l>  = hl  <El  * 11  Xi  - ± kf  <E,  - 1) 


(70) 


JL  ^ (E.  + 1)  5K 
120  1 J 


Expanding  the  operators  and  substituting  Eqs.  (68)  and  (63)  into  Eq.  (70),  one  can  arrive 
at 

c 

(71) 


K;  (X.  , x.  «)  = j 1 + i hi  D + L (K.  D)2  + L (h.  D): 
1 ] 1+1  | 2 1 6 1 24  1 


+ _I_  (h  D) 4 + 1 _L_  + - ' 

120  1 L "720  (36)  (120)cr2  , J 


+ (pi-i  ~ n (2gi-i  ~ n ~|  (h.  D)5 
2 

t-1 


r — i — 

|_4,800 


16(7^_1  + 5a^_j  + 95ff._j  + 25 


(360)  (120)  a 


i-J 


, D)e 
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Comparing  Eqs.  (71)  and  (55), 

ri+1 

Kj  (Xi  i Xj.+.j)  = J Y (x)  dx 


(72) 


4-  (hi  D)6 


fa-l-  Wgj-l- 

(36)U20)o2  , 
1—  1 


16a  + 5a2 


i-i  +95tV] 


25 


1 


(360)  (120)  cr3 


i-l 


100,800. 


(h,  D) 


+ - - . . j D“X  y. 

Thus  Eq,  (69)  is  found  to  be  fifth-order  accurate  (sixth-order  error)  and  for  uniform 
spacing  (opi  — 1),  it  is  sixth-order  accurate.  If  ***  and  were  exact,  then  the  formula 
would  be  sixth-order  accurate. 

2.4  GUINTIC  SPLINES 


Once  the  higher  order  approximations,  nq  and  3K, , have  been  found,  a spline,  z(x). 
is  needed  for  which  the  first  and  second  derivatives  at  xj  are  mi  and  JR;,  respectively. 
That  is, 


z(x)  = q;  (x) 

(73) 

for  Xj  < x < x,+  i , where  the  q,(x)  are  polynomials  such  that 

z'{x;)  = 

(74) 

and 

*"(*!)  = \ 

(75) 

for  i = 1,2,  ...,  N.  For  a particular  qi(x),  this  requires  the  conditions 

if 

>C 

O7 

(76) 

(*,)  - «t 

(77) 

qf  (xt)  = 311; 

(78) 
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% <Vl>  = Ti+1 

(79) 

< <xi+])  = mi+l 

(80) 

qf  (xi+i)  = Mi+l 

(81) 

Since  there  are  six  conditions,  qj(x)  is  quintic.  Now  one  can  define 


^bi  = y\ 

>'C1  = y>+i 


= V;  + I h;  m; 

(82) 

2 U.  + 1 li?  % 

(83) 

5 1 1 20 

2 h.  m ■ . . + J-  h?  )H 

5 1 1+1  20  1 1+1 

(84) 

>'i+l  " \ Ki  mi+l 

(85) 

then 

q.  (x)  = y.  tff  + Syai  ef  - 10yhi  V?  d\ 

+ 10ycj  B\  + 5ydi  ,*  6;  + yi+I  Hi 

The  first  derivative  is 

q;(x)  = A [- y j 6?  + yai  (6;  - 41?,)  + 2ybl  (2l3i  - 3j?i>  Vi  e\ 

1 

+ 2yci  (36;  - 2 7J.)  7/j  6;  - ydi  (46;  - >?;)  rjf  + y]+1  ^ ] 
and  the  second  derivative  is 

If  to  = Jg  [>i  + >'ai  {37,;  - 26;)  0? 

1 

+ Xbi  <*i  ~ 6r?,  + 3jj?)  6i 

+ ycl  (30j  - 617,  6;  + ij?)  ij, 

+ ydi  (36;  - 2,.)  r,?  + y1+1  r,?  ] 

It  can  be  verified  that  Eq.  (86)  does  satisfy  the  six  conditions,  (76)  thru  (81). 
To  compute  the  integral  of  the  quintic  spline,  if  one  has  a formula  for 

K;  (a  , b)  = J' q.  (x)  dx 


(86) 


(87) 


(88) 


(89) 
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where  < a < b < Xj+j,  then  one  can  obtain  the  integral  over  an  arbitrary  subinterval 
of  [x, , xN  ] by  summing  the  appropriate  Kj(a,b)  with  the  proper  arguments.  Integrating 
Eq.  (86), 

Ki (a  • b)  = h;  [-}  >'i  - y„  ()?i  + d) 

o 6 

- yh,(|  + 7i  ^ + l-  *?)*? 

+ y-(f  + ^ + 

+ ydi  (6-  + I ifj)  ij f + i-  yi+1  (90) 

Of  particular  interest  is 

K,  (xi  • x,+])  = } h.  (^i  + ^ai  + ybi  + yCi  + ^di  + yj+i>  (91) 

If  one  substitutes  Eqs.  (82)  thru  (85)  into  (91),  then  one  obtains  Eq.  (69). 

3.0  SPLINE  COLLOCATION 

The  general  solution  to  a second-order  differential  equation  involves  two  arbitrary 
constants;  thus  two  conditions  must  be  made  to  determine  a particular  solution.  If  the 
two  conditions  are  the  specification  of  the  values  of  the  solution  and  its  derivative  at  a 
particular  x-value,  then  the  problem  is  called  an  initial  value  problem,  and  one-step 
methods  such  as  Runge-Kutta  can  be  applied,  with  nonlinearity  presenting  no  special 
problem.  When  the  two  conditions  are  given  at  two  separate  x-values,  the  problem  is 
called  a two-point  boundary-value  problem,  and  several  techniques  are  applicable,  all 
requiring  iteration  to  handle  nonlinearity.  Some  methods  allow  the  problem  to  be  left  in 
its  nonlinear  form,  for  example  shooting  methods  for  which  each  iteration  is  an  initial 
value  problem.  However,  probably  the  best  methods  are  those  where  the  problem  is 
linearized  and  each  iteration  solves  a linear  problem.  That  is  the  approach  used  in  this 
report.  Section  3.1  describes  a spline  collocation  method  to  solve  linear  problems,  and 
Section  3.2  shows  how  to  linearize  a problem  and  iterate  to  obtain  a solution  to  the 
nonlinear  problem. 

A collocation  method  for  solving  a differentia]  equation  involves  writing  an 
approximate  solution  in  terms  of  a number  of  parameters,  then  determining  the 
parameters  by  requiring  the  approximate  solution  to  satisfy  the  differential  equation  at 
certain  discrete  points.  The  approximate  solution  ‘and  the  differential  equation  collocate 
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at  those  points.  In  the  case  of  spline  collocation,  the  approximate  solution  is  the  spline, 
and  the  parameters  are  the  y,  and  M,.  Since  there  are  2N  unknowns,  the  Y,  and  M„  2N 
equations  are  needed.  Because  the  unknowns  are  spline  parameters,  N spline  relations  are 
hi  force,  The  other  N equations  come  from  the  collocation  requirements  that  the  spline 
satisfy  the  differential  equation  at  the  x,. 

In  the  following  analysis,  quintic  splines  are  assumed  throughout:  however,  the 
equations  for  cubic  splines  are  found  by  setting  Aj  = fij  = 0.  In  Section  2,  since  the  spline 
passed  thru  the  points,  /.,  equaled  y,  [(z,  = z(xj)|.  In  this  section,  the  requirement  is  for 
the  spline  to  satisfy  the  differential  equation  at  the  x,;  therefore,  z,  does  not  necessarily 
equal  y,.  For  this  reason,  when  reference  js  made  to  equations  in  Section  2,  it  will  be 
assumed  that  the  yj  are  replaced  by  z-,  without  further  explanation. 

3.1  THE  LINEAR  PROBLEM 


Given  the  differential  equation 

y " = a ( x ) + j8  (x)  y + y (x)  y ' T e (x)  I 


where 


X 

I = I , + f y (x  ) <lx' 


(92) 


(93) 


where  I*  is  a given  constant;  and  given  end  conditions,  Eq.  (24),  it  is  desired  to  find  a 
numerical  solution  for  xj  < x < x»  by  spline  collocation. 


Equation  (92)  should  be  classed  as  a third -order  differential  equation  in  I,  since  v - 
1',  y1  = I”,  and  y"  = 1"'.  Orginally,  the  method  to  be  presented  was  developed  for 
second-order  equations;  later,  it  was  extended  to  solve  third-order  equations  by  the  above 
device.  Spline  collocation  determines  the  spline,  z(x),  which  satisfies  the  differential 
equation,  Eq.  (92),  at  the  x,.  Therefore,  for  i “ 1,2,  N, 

zi  + Y\  Si  (94) 


where  the  subscript,  i.  on  the  functions  a,  0,  y,  and  e indicates  their  evaluation  at  xp  The 
gj  are  defined  by 


and  for  i > 1 , 


Si  = I* 


Si  “ Si-1  + Ki-1  (xi-l  • 


(95) 

(96) 
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which  by  Eq.  (69)  becomes 


*.  = + [hi-l  (/i  ~ Z,-i) 


(97) 


for  1 < i < N.  If  one  defines 

Oi  - + 1)  Mj  * M1+, 


(98) 


then  Eqs.  (65)  and  (59)  can  be  written 


, for  i = 1 and  i = N 


§ h 


ra,  + 1 

1 36 


izi  Q-  , for  1 < i < N 


(99) 


n.  = 


Mj  , for  i = 1 and  i = N 

M.  - Q , for  1 < i < N 
1 6 ' 


(100) 


Ordinarily  one  would  choose  the  z,  and  m,  as  the  principal  unknowns  using  Eqs.  (23), 
(25),  and  (26).  However,  in  light  of  Eq.  (98)  and  its  exclusive  involvement  of  the  M,,  the 
analysis  can  be  simplified  by  choosing  the  z,  and  M,  as  the  principal  unknowns  and  using 
Eqs.  (36),  (35),  and  (37),  which  can  be  written 


(*.-£) 


B i \ B . j p 

Z1  - r1  z2  + (C1 

l ' hi 


l B,  h,>  M,  - I B,  h,  M,  - D, 


ri-,  “ (ir- , * r)  *■  + r *>-> 

I hi-,  M_,  - i (K,_,  . h.)  M,  - ) h,Mi+I  - 0 

for  1 < i < N 

(AN  * A)  ZN  - j^-  *1.-1  * (CN 


N— 1 


N— 1 


+ J 3N  hN-l^  MN  + g-  BI\  hN-l  MN-1  ~ °N 


(101) 
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The  irq  values  come  from  Eqs.  (32),  (34),  and  (33),  which  can  be  written 

J-  (2,  - z.}  - !Ll  (2M,  + MO  for  i = 1 
h z 1 6 1 


2h 

h 


! — Vi  + 1 (-*-  - -L  ^ 

.-1  2 Wx  M 


2K 


' i+ 1 


- iF  Mi-|  * ( «V1  - V Mi  - Tt  Mi+| 

for  1 < i < N 


h N 

N- 1 


ZN-l^  + ~ ~ t2MN  + MN  ])  for  i = N 


(102) 


From  Eqs.  (94)  thru  (102)  one  could  form  a tridiagonal  system  with  7 by  7 blocks  with 
unknowns  z1:  M,,  m,,  Q;,  "j,  ?H  and  g,.  However,  for  the  sake  of  numerical  efficiency,  it 
is  best  to  eliminate  some  of  the  unknowns  before  defining  the  system.  The  nq  and  Jlfj  can 
be  eliminated  by  substitution  of  Eqs.  (99)  and  (100)  into  Eqs.  (94)  and  (97).  Equation 
(94)  becomes 

0.  - Mi  ~ Vi  "b  ' ei  ^ 

for  i - 1 and  i = N 


^ - M,  - y,  ....  + «,  8i  + _L  (,,  8,  h._,  - 64,)  Q,  - -a,  (,03) 


for  1 < i < N 


If  one  defines 


and 


7 20 


- 25,) 

(104) 

(105) 

° i—2  ' 
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then,  after 


/ 


Si 


m,  and  Jli,  are  eliminated,  the  g,  can  be  written 


Ij  for  i = l 

gl  + I h,  (z2  + zl)  - _L  h \ (m2  - m,) 


+ _!_  h?  (M„  + M,)  + 
120  1 


a12  ^2 


for 


_ 2 


8,-1  + \ h,-]  (z,  + 2,_l)  - yV  (mi  “m-l) 

+ ik  ^ (M-  + M‘-l)  + 9l’Q’  + for  2 < ! < N 

6K-1  - ~ hN- 1 (ZN  T ZN-l}  - hN-l  (mN  - mN-P 

+ rb  hN-l  (MN  * MN-1}  + a2N  Vl  for  ' = N 


006) 


The  m,  and  Q,  can  be  eliminated  from  the  system  by  substitution  of  Eqs.  (102)  and 
(98)  into  Eqs.  (103)  and  (106).  The  results,  after  substitution,  can  be  called  Eqs.  (103)' 
and  (106)',  which  will  not  be  written  out  explicitly.  The  system  then  consists  of  Eqs. 
(106)',  (103)',  and  (101),  which  can  be  written  in  the  form 

D0,  V,  + Dn  V2  = Rj 


n-l2  V1  D02 V2  + °12  V3  “ R2 


D , V.  , + D ..  V.  , + Dn  V.  + D,.  V..,  = R.  for  2 < i < N 

— 2i  i-2  -li  l-l  Oi  i li  i+l  i 


0_2N  VN-2  + D-1N  VN-1  + °0N  VN  ~ RN 


where 


V 


1 


(107) 


(108) 


--1!  ~ 

~ 0 ~ 

“ 0 - 

= 

"“l 

~®N 

LdJ 

_ 0 _ 

Dm 

— N — 1 

for  i=I  for  1 < i < N for  i=N 


(109) 
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and 


^mi 


(110) 


where  all  the  dm  are  zero,  except  for  ones  which  will  be  listed  below.  A brief 
clarification  of  the  subscripts  may  be  useful.  The  subscript  m takes  values  -2,-1,  0,  and 
!•  The  value  0 refers  to  the  principal  diagonal;  -1  to  the  first  lower  diagonal;  -2  to  the 
second  lower;  and  1 to  the  upper  diagonal.  The  subscript  i indicates  the  ith  point  with  1 
< i < N.  The  subscripts  j and  k take  values  1,  2,  and  3.  The  j subscript  refers  to  Eqs. 
(106)’,  (103)',  and  (101),  respectively.  The  k subscript  refers  to  gj,  M;,  and  Zu 
respectively. 


The  nonzero  dmjJk  are  as  follows: 


d-2iI2 


d-2il3 


h h 

- ^ — ElL  + a2i  cr._2  for  2 < i < N 


120 

o.  _ „ h 


for  2 < i 1 N 

20 


d_j!  L j = 1 for  1 < i < N 


dll) 

(112) 

(113) 


— 1 L 12 


li  1 r 

- — i + a10<7,  Fori  = 2 
30  12  1 


tr  (vT2  ~ + ali  " a2i  (<7i-2  + U for  2 < i < K 

~ 3)  ' (^-2  + 1}  f°r  1 = N 


(114) 


9h. 


20 


for  i = 2 


-li  13 


20 


-=i  {ov_ 2 +10)  for  2 < i < N 


(<r„  , + 11)  for  i = N 

20 


(115) 


0i  11 


-1  for  1 < i < N 


(116) 
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— 1 — (2cr,  - 3)  - (a,  + 1)  for  i = 2 

120  J JZ  1 


^Oi  12 


— !— i (f|_j  - 1)  - (cr^j  + 11  + a2j  for  2 < i < N 
60 


- w 1 + a2N  for  i = N 


30 


ill 

20 


J0i  13 


iVl  /_!_  + lo\  for 
20  / 


for  i = 2 


9h 


N-l  for  i = N 
20 


2 < i < N 


I = hl~A  i*!  + a,  for  1 < i < N 
1 1 1 2 120  11 


dli  13 


— for  1 < i < N 


20 a 


i-l 


ZJVl  + Zj-1  (y  S h.  , - 6A1 

12  36  1 1 1 1 1 


for  1 < i < N 


d— 1 i 22 


N-l  for  j = N 

6 


(117) 


(118) 

(119) 

(120) 


(121) 


1 i 23 


_ r, 

2l\-i 

_ y n 


for  1 < i < N 


for  i = N 


(122) 


d0i  2 1 " 


for  1 < i < N 


(123) 
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-1  - il — I for  i = 1 

3 


Oi  22 


-1  + Zi  (h;_ J - hj)  - _L  (y;  5 j h - 6^)  + 1)  for  1 < i < N 


-1  + Zi! — !LJ.  for  i = N 

3 


(124) 


d0i  23 


@1  ~ — for  i = 1 
hl 

/3;  + Zl  ( _i_  - J_  \ for  1 

2 \h,-i  k) 

j3n  - -ZlL  for  i = N 


< i < N 


N— 1 


(125) 


y,  i» 


1 for  i - 1 


d 1 i 22 


y h 

— i 


*2  36 


for  1 < i < 


N 


(126) 


lli  23 


— - for  i - 1 

h. 


A. 

2h 


for  1 < i < N 


(127) 


d-3i 32 


1 1 

for  1 < i < N 

6 


hN-i  for  i = N 

6 


(128) 


d-I  i33 


-J  for  1 < i < N 

h,-i 


■ — EL  for  i = N 


hN-J 


(129) 
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C,  - B1  for  i = l 

3 


d0!32 


-L  (h-  , + h.)  for  1 < i < N 

3 1-1  1 


+ BN  hN=l  for  i = N 
3 


(130) 


J0i33 


A , - for  i = 1 

hl 


it + t) 


for  1 < i < N 


An  - JLs_  for  i = N 
hN-l 


(131) 


1 1 3 2 


— — S — L for  i = 1 


- — for  1 < i < N 
6 


(132) 


1 1 13  3 


i for  i = 1 


-L  for  1 < i < N 


(133) 


Figure  2 shows  the  coefficient  matrix  for  N = 7.  Each  small  square  corresponds  to  a 
dmijk,  and  each  large  square  corresponds  to  a Dmi.  The  X's  mark  the  nonzero  elements. 
The  most  straightforward  way  to  solve  the  system  is  to  use  a banded  system  solver.  The 
matrix  is  seen  to  have  five  diagonals  above  and  below  the  principal  diagonal  for  a 
bandwidth  of  1 1. 


The  matTix  can  be  treated  as  four  diagonals  of  3 by  3 blocks.  The  upper  diagonal  can 
be  eliminated  and  the  solution  obtained  by  forward  substitution.  Some  advantage  can  be 
taken  of  the  sparseness  of  D.2i  (two  nonzero  elements).  One  must  be  careful  in 
programming  such  a procedure  if  the  procedure  is  intended  to  improve  on  the  banded 
solver. 
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Figure  2.  Coefficient  matrix  for  P4  - 7. 
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When  e(x)  = 0,  then  Eqs.  (103)  and  (101)  become  uncoupled  from  Eq.  (106)  and  a 
tridiagonal  of  2 by  2 blocks  can  be  solved  for  the  Mj  and  z,.  The  integral  can  then  be 
computed  from  Eq.  (69)  if  it  is  needed. 

3.2  THE  NONLINEAR  PROBLEM 

Most  problems  are  nonlinear.  Instead  of  Eq.  (92)  one  may  have 

y"  = f y , y ' , I)  (134) 

Methods  of  solution  of  such  problems  often  involve  a process  called  quasi-linearization. 
The  process  requires  an  "in-hand"  solution,  which  to  begin  with  may  be  just  a guess. 
Indicating  the  in-hand  solution  by  a bar, 

y"  ~ f (x  , y , 7 ' , I ) + f2  (x  , y , y',  I ) (y  - y) 

+ f3(x  , 7 , y \ T)  (y'  - y')  - f4(x  , y , y',  T)  (I  - T)  (135) 

where  fj  indicates  the  partial  derivative  of  f with  respect  to  the  jth  argument.  Equation 
(135)  can  be  put  in  the  form  of  Eq.  (92)  where 


a(x)  = f(x  . y , y',  I)  - f2(x  « y , y' , I)  y 

- f3  (*  . 7 . 1 ' . I)  7 ' - U , 7 , y' , I)  T 

(136) 

/3  (x)  = f2  (x  , y , y' , I) 

(137) 

y(x)  = f3(x  , V , y ' , I) 

(138) 

f (x)  = f4(x  , y , y ' , T) 

(139) 

With  a,  y,  and  e defined  by  Eqs.  (136)  thru  (139),  a solution  can  be  obtained  by  the 
method  of  Section  3.1.  This  solution  becomes  the  new  in-hand  solution.  Iteration 
continues  until  a converged  solution  is  obtained  or  until  it  becomes  apparent  that  the 
method  (for  a particular  case)  fails  to  converge. 
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4.0  THE  COMPUTER  PROGRAM 

The  computer  program  was  written  in  FORTRAN  for  the  IBM  370/165  computer. 
To  apply  the  program  to  a particular  problem,  the  user  must  provide  the  functions  a(x), 
POO.  7(x),  and  e(x)  of  Eq.  (92).  This  is  done  via  a subroutine.  QLDE.  Only  the  text  of 
the  subroutine  need  be  changed,  the  interface  having  already  been  programmed.  The  user 
must  also  provide  the  end  condition  constants  of  Eq.  (24);  the  constant.  I] , of  Eq.  (93); 
a starting  solution;  and  various  logic  control  variables.  These  inputs  are  made  in 
subroutine  DATA.  The  different  parameters  are  described  by  comments,  and  the  user  sets 
their  values  as  desired.  One  other  routine,  CHEKBM,  is  problem  dependent;  however,  it  is 
not  essential  to  the  solution.  CHEKBM  is  evoked  after  a solution  has  been  found  and  the 
user  can  check  or  process  the  solution  as  desired.  The  use  procedure  of  the  computer 
■program  is  demonstrated  in  Section  5 by  example  problems. 

A listing  of  the  program  is  given  in  Appendix  A.  A conscientious  effort  was  made  to 
make  the  program  clean  and  modular,  and  to  use  comments  liberally.  Below  arc  notes  on 
some  of  the  subroutines.  If  a subroutine  is  not  included  below,  then  it  is  adequately 
documented  by  comments.  Line  numbers  refer  to  sequence  numbers  in  columns  73  thru 
80. 

PROCED 

The  general  logic  of  the  program  is  contained  in  this  routine.  The  DO  loop  of  Line 
340  provides  the  option  of  solving  multiple  problems.  Exit  from  this  loop  is  effected  by 
a RETURN  2 from  DATA  (Line  350).  Iteration  is  performed  by  the  DO  loop  of  Line 
380  A converged  solution  (and  branch-out  of  the  loop)  is  indicated  by  a RETURN  1 
from  UPDATE  (Line  430).  The  user  is  given  the  opportunity  to  check  or  process  the 
solution  as  desired  in  CHEKBM,  Line  530.  The  solution  will  be  written  on  tape  or  disk, 
Line  540,  or  printed,  Line  550,  if  the  proper  indicators  (JUNIT  and  LPRNT)  are  set  in 
DATA. 

CHEKBM 

The  user  can  check  or  process  the  solution  as  desired  in  this  routine.  If  no  such 
need  exists,  then  Lines  1770  thru  1960  can  be  deleted  or,  alternately,  Line  530  of 
PROCED  can  be  deleted. 

CHEKDE 

If  the  solution  at  the  collocation  points  is  the  input  arguments  to  this  routine, 
then  in  effect  the  routine  merely  checks  the  validity  of  the  solution  from  BANDED.  This 
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routine  can  be  used  to  see  how  well  the  solution  satisfies  the  differential  equation  at 
points  other  than  the  collocation  points,  as  follows: 

1.  Call  QUINTS  to  determine  the  solution  at  the  points  of  interest. 

2.  Call  NTEGRL  to  compute  the  integral  at  the  points. 

3.  Call  QLDE  to  compute  the  a.j,  0,,  y\ , and  e,. 

4.  Call  CHEKDE  and  it  checks  the  solution  with  the  differential  equation. 

DATA 

The  logic  control  variables,  end  condition  constants,  and  starting  solution  are  input 
via  this  routine.  Note  the  availability  to  UNIFRM  to  compute  uniform  spacing  and 
GUESS  to  compute  a quintic  solution  which  satisfies  the  end  conditions. 

DELTAS 

This  routine  evaluates  Eqs.  (60)  and  (66)  for  A,  and  5,  and  has  been  made  a 
separate  routine  with  the  idea  that  it  might  be  useful  to  experiment  with  different  values. 
It  was  pointed  out  that  the  expressions  for  A;  and  5j  are  not  unique,  thus  it  would  be 
interesting  to  determine  their  influence.  Also,  setting  A,  = 5j  = 0 reduces  the  higher  order 
quintic  spline  method  to  a cubic,  so  that  the  refinement  of  the  method  can  be  evaluated. 

DIFRNC  AND  ERROR 

The  user  should  be  aware  of  the  availability  of  these  routines  which  have  been 
found  useful  in  the  various  checking  routines. 

GUESS 

GUESS  is  available  to  the  user  to  compute  a starting  solution.  It  determines  a 
quintic  solution  which  is  consistent  with  the  end  conditions.  The  method  used  by  GUESS 
is  presented  in  Appendix  B. 

NORM  i 

NORM  is  used  to  check  for  convergence.  The  user  has  a choice  of  two  tests 
indicated  by  the  variable  LNORM  set  in  DATA.  The  first  test  finds  the  greatest 
difference  between  the  two  solutions  relative  to  the  range  of  the  first  solution.  The 
second  test  finds  the  greatest  difference  between  the  two  solutions  relative  to  the 
solutions'  local  values.  The  second  test  is  more  stringent,  especially  for  solutions  which 
approach  an  asymptote. 
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R ESP  AC 

RESPAC  computes  a new  spacing  with  smaller  steps  where  the  solution  changes 
more  rapidly.  The  method  used  is  presented  in  Appendix  C.  If  no  respacing  is  desired, 
then  the  parameter  RSC  can  be  set  to  a large  value  in  DATA. 

RESULT 

The  solutions  returned  by  BANDED  are  the  gt,  M,,  and  z,  [SeeEq.  f 1 08)].  RESULT 
computes  m;  (in  the  temporary  variable.  Tl)  from  Eq.  (102)  and  then  mi  and  fq  from 
Eqs,  (99)  and  (100). 

SYSTEM 

SYSTEM  computes  the  dm^  from  Eqs.  (Ill)  thru  (133). 

PAGER 

The  user  should  replace  Line  7560  with  his  own  identification. 

TIMCHK  AND  GETNOW 

These  routines  are  cosmetic  rather  than  essential.  Dummy  routines  are  supplied  in 
order  to  present  a complete  working  program. 

The  user  can  replace  Line  7800  with  his  own  job  identification  or  ideally  would 
automate  the  routine  to  supply  the  job  number,  time,  and  date,  as  designed,  via  the 
mechanisms  of  his  computer  configuration. 

5.0  EXAMPLE  PROBLEMS 

The  computer  program  as  listed  in  Appendix  A solves  the  first  example  problem 
(Section  5.1).  The  program  as  listed  will  be  called  the  reference  program.  Since  most  of 
the  input  must  be  programmed,  for  example  the  functions,  afx),  |3(x),  7(x),  and  e(x), 
different  problems  are  run  by  modification  of  the  reference  program. 

The  modifications  to  run  the  example  problems  are  listed  in  Appendix  D.  They  are 
presented  in  the  format  of  an  in-house  update  program  which  has  three  command 
statements: 


-DEL 

LI  [ , 

L2] 

-INS 

LI 

-REP 

LI  [ , 

L.2] 
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The  LI  and  L2  are  sequence  numbers  (i.e.,  the  numbers  in  columns  73  thru  80  of  the 
reference  program).  The  brackets  indicate  that  the  inclusion  of  L2  is  optional.  The 
command  -DEL  deletes  lines  LI  thru  L2..If  L2  is  omitted,  then  only  line  LI  is  deleted. 
The  command  -INS  inserts  lines  after  line  LI.  The  insertion  lines  follow  the  command 
statement  and  continue  to  the  next  command  or  else  to  the  end  of  the  data.  The 
command  -REP  replaces  lines  LI  thru  L2.  If  L2  is  omitted,  then  only  line  LI  is  replaced. 
The  replacement  lines  follow  the  command  statement  and  continue  to  the  next  command 
or  to  the  end  of  the  data. 

At  AEDC  the  reference  program  is  kept  on  a permanent  file.  The  operating 
procedure  to  run  a particular  problem  is -to  create  the  modified  program  on  a temporary 
file  via  the  update  program,  then  to  compile  and  execute  the  modified  program. 

The  printed  output  of  the  example  problems  is  given  in  Appendix  E. 

5.1  EXAMPLE  1 

The  first  example  comes  from  Ref.  5,  as  follows: 

y"  + y3  y'  _ y y ' \J  4y  ' + y4  - 0 (140) 


with  end  conditions 

(xj  , yj)  = (0,0) 

(*n  1 = (tarrl  7 > 

It  can  be  verified  that  the  analytic  solution  is 

y = tan  x (141) 

By  Eq.  (24),  the  end  conditions  are  specified  by 

Aj  = 1 , Bj  = 0 , Cj  = 0 , Dj  = 0 

= 1 , = 0,C^  = 0,  D^-  = 7 

Equations  (136)  thru  (139)  yield 

a (x)  = 3 y y ' ( y2 


2y 


= ) 

'+  y4  / 


(142) 
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(143) 


(144) 


f (x)  = 0 (145) 

The  computer  program  as  listed  in  Appendix  A solves  the  first  example  problem. 
The  program  as  listed  will  be  referred  to  as  the  reference  program. 

5.2  EXAMPLE  2:  THE  FALKNER-SKAN  EQUATION 

A well-known  equation  in  boundary-layer  similarity  flows,  Ref.  6,  is  the 
Falkner-Skan  equation, 

y"  - ly'  + k(l  - y2)  = o (i46) 

where  k is  a parameter.  Equation  (87)  defines  I,  where 

h = o 

The  end  conditions  are 

<x  i , y j)  = (0  , 0) 

(xN  , yN-)  = (<*>  , H 

For  numerical  computation,  the  “ must  be  replaced  by  an  appropriate  finite  number. 

By  Eq.  (24),  the  end  conditions  are  specified  by 

A,  = 1 , Bj  = 0 , Cj  = 0 , D,  = 0 

AN  = 1 ’ 8n  = 0 ♦ CK  = 0 , Dn  = i 
Equations  (136)  thru  (139)  yield 


a (x)  = Iy  ' 

cT' 

-f- 

i—i 

i 

(147) 

jS(x) 

- 2ky 

(148) 

y(x) 

= -I 

(149) 

eU) 

= ~y' 

(150) 

35 


A E DC-TR  -78-59 


It  took  three- attempts  at  solving  this  problem  to  obtain  satisfactory  results  in  all 
cases.  The  goal  was  to  recompute  a table  in  Ref.  6 which  is  printed  in  the  first  page  of 
printout  for  this  example  (Appendix  E).  One  could  expect  difficulty  for  k < 0,  since 

multiple  solutions  exist,  but  only  the  one  solution  presented  in  the  table  was  of  interest. 

The  first  attempt  was  with  x^  = 6.  Good  solutions  were  obtained  for  k>0,  but  for  k< 
0,  the  iteration  converged  to  a wrong  solution.  The  second  attempt  was  to  choose  (using 
the  table)  a more  appropriate  x^  for  each  k.  This  improved  the  accuracy  of  the  solution 

for  k = 10,  but  otherwise  it  had  little  effect.  The  first  two  attempts  used  GUESS 

(Section  4)  to  obtain  the  initial  solution  of  the  iteration,  which  produced  a straight  line. 
The  third  attempt  was  to  use  as  the  initial  solution 

y = 1 - e“3x  (151) 

With  this  as  the  starting  solution,  the  iteration  converged  to  the  correct  solution  in  each 
case. 


The  solutions  were  not  printed  (LPRNT  = 0),  but  were  written  on  disk  (JUNIT  = 
20).  A second  program  read  the  file  on  disk  and  plotted  the  solutions  and  the  first 
derivatives  of  the  solutions.  These  plots  are  shown  in  Figs.  3 and  4 and  can  be  compared 
with  similar  plots  in  Ref.  6. 

5.3  EXAMPLE  3:  VISCOELASTIC  FLUID 


The  third  example  comes  from  Ref.  7 and  describes  the  steady  flow  of  a viscoelastic 
fluid  parallel  to  an  infinite  plane  surface  with  uniform  suction 

ky"  + >-y  + y = 0 (152) 

with  end  conditions 


= 0 


Xl  = A 

where 

x = i -yji  - 4k 
2k 

It  can  be  verified  that  the  analytic  solution  is 


1 = 1-  e~Ax 


(153) 


(154) 
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Example  2 Falkner-Skan  Equation 


0 0.50  1.00  1.50  2.00  2.50  3.00  3.50  4.00  4.50  5.00 

X 

Figure  3.  Solutions  to  the  Falkner-Skan  equation. 
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The  end  condition,  Eq.  (24)  with  i = 1,  is  specified  by 

A,  . 1,  B,  =0,  Cj  =0,  Dj  - \ 

For  numerical  purposes,  xn  must  be  set  to  an  appropriate  finite  number.  Also,  to  be 
noted,  the  end  condition  at  x = xN  is  not  of  the  assumed  form,  Eq.  (24)  with  i = N.  This 
deviation  requires  a modification  in  SYSTEM,  replacement  of  Lines  6750  thru  6780  with 

0(3, N, 4)  = 1.D0 

and  replacement  of  Line  6810  with 

R(3,N1  = 1.D0 

i.e.,  replacement  of  Eq.  (24)  at  i = N with 

*n  - 1 

Equation  (152)  is  linear,  and  from  Eq.  (92), 


0 

(155) 

k 

(156) 

„ 1 

(157) 

k 

0 

(158) 

Since  Eq.  (152)  is  linear,  iteration  is  unnecessary;  however,  the  accuracy  is  improved 
by  respacing.  Solutions  were  computed  for  k = 0.001,  0.01,  and  0.1.  Accuracy  improved 
for  larger  k values.  This  was  expected  since  the  equation  becomes  stiff  for  small  k values 
(Ref.  7).  The  stiffness  is  further  evidenced  by  the  oscillation  of  signs  in  the  numerical 
solution  for  y"  for  the  smaller  k and  larger  x values. 

5.4  EXAMPLE  4:  CHEMICAL  DISPERSION 


The  fourth  example, 

ky"  = y'  + ■ ]'25y 

1 + 0.1  y 


with  end  conditions 


xj  = o y i - k x i = i 
xn  = 1 Xn  = 0 


(159) 
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comes  from  Ref.  7 and  is  a special  case  of  a chemical  dispersion  equation.  Checkpoints 
for  the  numerical  solution  (taken  from  Ref.  7)  are  given  below. 


y(x) 

X 

k = 1 

k = 0.1 

k = 0.001 

0 

0.620042 

0.905407 

0.999068 

0.5 

0.473143 

0.532646 

0.599183 

1.0 

0.418415 

0.339965 

0.307476 

Using  Eq.  (24),  the  end  conditions  are  specified  by 

A,  = 1,  Bj  =-k,Cj  = 0,  D,  = 1 

= ® i — 1 > Cpj  = 0 , = 0 


Equations  (136)  thru  (139)  yield 


125  / 

' y V 

(160) 

k \ 

,1  + 0.1  y / 

_ l 

1 .25 

(161) 

k 

(1  + 0.1,  y)2 

y(x) 

= 1 
k 

(162) 

»(x) 

= 0 

(163) 

No  difficulties  were  encountered  in  obtaining  the  checkpoint  values.  A plot  of  the 
solutions  is  shown  in  Fig.  5. 

5.5  EXAMPLE  5:  AN  INHERENTLY  UNSTABLE  PROBLEM 

The  fifth  example, 

y"  = *2y  + _J — (164) 

1 + X 

with  end  conditions 

(xj  , y,)  = (1  , 1) 

. o) 

comes  from  Ref.  7,  where  it  is  called  "an  inherently  unstable  problem." 
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By  Eq.  (24)  the  end  conditions  are  specified  by 

Aj  =1,8,  = 0 , Cj  = 0 , Dj  = 1 

= ^ ~ 0 , CN  = 0 , D N = 0 

Equation  (164)  is  linear,  and  from  Eq.  (92), 


a lx)  = 1 

(165) 

] 4-  X 

/S(x)  = x2 

(166) 

Y = 0 

(167) 

f = 0 

(168) 

On  the  first  page  of  printout  for  this  example  (Appendix  E),  the  column  labeled  YA 
is  a tabular  solution  presented  in  Ref.  7.  The  column  labeled  YB  is  the  computed 
solution,  and  the  column  labeled  D1FF  is  the  difference  between  the  two.  The  accuracy 
is  as  good  as  the  accuracy  claimed  for  the  table  in  Ref.  7.  A plot  of  the  solution  is 
shown  in  Fig.  6. 

5.6  EXAMPLE  6 


The  sixth  example  comes  from  Ref.  8: 

y"  = k2_y  + (k2  + 4tt2)  cos2  jtx  - 2 tt2 

with  end  conditions 

The  analytic  solution  is 


By  Eq.  (24)  the  end  conditions  are  specified  by 

Aj  = 1 , Bj  = 0 , Cj  = 0 , Dj  = 0 


(xj  , }’j)  = (0  . 01 

> y^)  = (1  ) 9) 


e k(x— 1)  , 2 

V = + - - COS  77  X 


1 + e 


-k 


(169) 


(170) 


ak  = 1 , Bk  = 0 , cN  = 0 , dn  = 0 
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Example  5 Inherently  Unstable  Problem 


Figure  6.  Solution  to  the  inherently  unstable  problem. 
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Equation  (169)  is  linear,  and  fay  Eq.  (92), 


+ 4 ff2)  cos2  i7x  - 2rr2 

(171) 

-id 

II 

(172) 

y - o 

(173) 

f = 0 

(174) 

A plot  of  solutions  to  Eq.  (169)  is  shown  in  Fig.  7. 

5.7  EXAMPLE  7:  y"  = e* 


The  seventh  example  comes  from  Ref.  8. 


with  end  conditions 


The  analytic  solution  is 


where  X is  the  root  of 


t / 

y 


ey 


(175) 


(176) 


(177) 


the  numerical  value  of  which  can  be  found  in  the  first  page  of  printout  for  this  example 
(Appendix  E). 

Using  Eq.  (24),  the  end  conditions  are  specified  by 

Aj  = 1 , Bj  = 0 , Cj  = 0 , Dt  = 0 

AN  = 1 , BN  = ° , CN  = ° , DN  = 0 
Equations  (136)  thru  (139)  yield 


a(x)  = (1  - y)  ey 


(178) 
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(179) 

(180) 
081) 

Of  note  for  this  problem  was  how  quickly  and  accurately  the  iteration  converged  to 
the  solution.  A plot  of  the  solution  is  given  in  Fig.  8. 


J9(*)  = 
y - 0 
f = 0 


45 


0.10  0.20  0.30  0.40  0.50  0.60  0.70  0.80 

X 


0.90 


Figure  7.  Solutions  of  example  6. 
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APPENDIX  A 

LISTING  OF  THE  COMPUTER  PROGRAM 


LISTING  OF  REFERENCE  PROGRAM 


C.. 

c. . 

c«. 
c.. 
c.  ■ 
C*  a 
C.4 


10 


SIVC062a  V32A-P1A  FOR  JOHN  C«  ADAMS  00000010 

SOLUTION  OF  2-POINT  BOUNDARY  VALUE  PROBLEMS  BY  SPLINE  COLLOCATION  00000020 
WRITTEN  BY  DON  TODD  APRIL  7 1978  00000030 

00000040 

THE  MAIN  PROGRAM  ALLOCATES  MEMORY  00000050 

ALL  RED I MENS I ON  I NG  CAN  BE  DONE  HERE  00000060 

00000070 

IMPLICIT  REAL*  B <4-H,0-Z>  00000080 

COMMON  /ARRAYS/  AC250.45)  00000090 

COMMUN  /FIXED/  NDI M 00000103 

NO  I M— 250  000001  10 

CALL  PRO CEO  I AC  I « l I • AC  1 ,2) « A( 1 ,3) , AU f A I ,A U ,5 ) . 1,6] ,A( l f 7) ,A( I, 00000120 
18).A|l,9>'A(l»lOUA<t»)0)<A<l,ll)»A(l,12},A(t'l3)>  00000130 


WRITE  (6,10) 

STOP 

FORMAT  ( * 0 ST  OP  1 ) 
END 


00000140 
00000150 
00000160 
CQOOO I 70 
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LISTING  OF  PROGRAM 


C*. 
C«  • 
C.  • 

c.  • 
c«  * 
c « • 
c * * 
c.. 
c.. 
c.. 


10 

20 

30 


50 

60 

70 

80 


SUBROUTINE  PFOCF.3  IX.Y.F.S.G.ALFA.bETA.GAMA.EPSA.D.XA.YA.FA.GA) 
IMPLICIT  REAL*0  (A-H.O-Z) 

DIMENSION  X(  1 t , Y 1 1 > . Ft  l ) ,SI  I ) , G(  1 > . ALT  A(  1 ) .BETA t l ) .GAMA I 1 ) .EPS  At  1 
l . 0 < I)  . XA  ( l > , YA  ( t > , FA  ( 1 > , GA  ( 1 ) 

COMMON  /FIXED/  NOI Hi JCASC. JT .NT 
PROCEDURE  FOR  THE 

SOLUTION  O'  2-POINT  BOUNDARY  VALUE  PROBLEMS  BY  SPLINE  COLLOCATION 
WRITTEN  t»Y  OON  TODO  APRIL  7 1970 

F IS  THE  FIRST  DERIVATIVE 
S IS  THE  SECOND  DERIVATIVE 
G IS  THE  INTEGRAL 

D IS  THt  COEFFICIENT  ARRAY  FDR  THE  SYSTEM 

XA.YA.FA,  E GA  ARE  THE  NEWLY  COMPUTED  5ULUTIQN.  NOTE  THEY  OCCJPY 
THE  SAME  MEMORY  AS  0 (SEE  CALL  PHOCED  IN  THE  MAIN  PGM) 

CALL  PAGES 

DO  SO  JCASF=1, 100000 

CALL  DATA  (N.X.r.F.S.G.tSO.E.60) 

M“  37  N 
UP  1=11 *M+1 
DO  10  JT=I.NT 

CALL  OLDE  ( N , X , Y . F . S . G . ALF A , BETA . G AMA . EPSA ) 

CALL  SYSTEM  ( N . X ■ AL F A. BE TA . G A M A . E P S A . D . D t J R1  ) I 
CALL  BANDED  I I 1 . I2.M,b,Di£.20> 

CALL  RESULT  <N .0 ( JR  I ) . X. YA .FA . S. GA  ) 

CALL  UPDATE  <N. Y.F,G,YA,FA.GA,E30) 

CALL  RESPAC  IN.X.Y.F.s.G.XA.YA.FA.GA) 

CENT  I NUE 
WRITE  (6.70) 

GO  TO  30 
WRITE  (6,801 
GO  TO  50 
C3NT INUE 

CALL  OLDE  (N.X.Y.F.S.G, ALFA. BETA, GAMA, EPSA) 

CALL  CHEKDE  (N.X.Y.F.S.G. ALFA, OETA.GAMA, EPSA) 

CALL  CHEKBM  (N.X,Y,F,S.G) 

CALL  WRITES  (N.X.Y.F.S.G) 

CALL  PRINTS  (N.X.Y.F.S.G) 

CD  NT INUE 
RETURN 

FORMAT  <*01 MAXIMUM  NUMBER  L)F  I TER  AT  IONS  • ) 

FORMAT  | 'OOANBED  FAILED*) 

END 


00000180 
00000190 
) 00000200 
000002)0 
00000220 
00000230 
00  000240 
00000250 
00000260 
00000270 
OOOOC2BO 
000CC290 
00000300 
00000310 
00000320 
00000330 
00000340 
00  0 0 C 350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
ODOOC420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000490 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00  0 0 0560 
00300570 
00000580 
00000590 
00000600 
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LISTING  DF  REFERENCE  PROGRAM 


SUBROUTINE  BANDED  < NB. N , M , JP , A . * J 
IMPLICIT  RE  ALA  6 (A-H.O-Z) 

01  ME  NS  ION  AIM. N) 

C...  BANDED  SYSTEM  SULVER  BY  GAUSSIAN  ELIMINATION 
C...  MR  IT  TF  N BY  DON  TODD  APRIL  5 1976 

C«  . . 

C...  NB  IS  THE  NUMBER  OF  DIAGONALS  (BAND  WIDTH) 

C...  N IS  NUMBER  OF  EQUATIONS 

C...  M IS  NB  ♦ NUMBER  OF  RIGHT  HAND  SIDES  IRHS'S) 

C...  A IS  COEFFICIENT  ARRAY  AUGMENTED  BY  RHS'S 
C...  SOLUTIONS  REP. ACE  RHS*S  COEFFICIENTS  ARE  DESTROYED 
NB1  = NE3+1 
HP  1 = M*  I 
MM i=M- 1 
NU— NB- JP 
NL=JP-l 

IF  (M.EQ.ll  GO  TD  300 
IF  INU.EQ.O)  GO  TO  300 
1=  I NL .EQ.O ) GO  TO  J 00 
I-  INL.GT.NU)  GO  TO  200 
C...  ELIMINATE  LOWER  TRIANGLE 
DO  30  J=1,MM1 
P=A( J, JP) 

1C  IP. EQ.O. DO)  GO  TO  *00 

Q—  l . DO  /P 

J1=J*I 

J2=NIN0( J+NL.M ) 

J3=M[N0(  J4NU.M  ) 

DO  30  K=J1 , J2 
LI=JP-K+J 
F=AIK.L1 » 

IF  (F. EQ.O. DO)  GD  TO  30 

F=F*0 

L2  = JP 

DO  10  L=J1.J3 
L1=L1* 1 
L2=L2+1 

10  AIK. LI >=AIK,Ll )-F*A( J.L2) 

DO  20  L=N9l,N 

20  ACK.L)=AIK.L)-F*A( J.LI 

30  CONTINUE 

C...  BACK  SUBSTITUTE 
100  CONTINUE 

OO  140  L=NB1 .N 
J=MP1 

110  JI=J 
J = J-1 
P=AI J, JP ) 

IF  CP. EQ.O. DO)  GD  TO  400 
Q= A<  J.L  ) 


00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00  00  0680 
00  0 0 069  0 
00000700 
03000710 
30030723 
00000730 
30000740 
000007S3 
00000760 
00000770 
00000760 
00000790 
00000800 
00000810 
00000820 
00000830 
00  0008*0 
00000853 
00000660 
00000870 
00000860 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00  000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
00001080 
00001090 
00001103 
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LISTING  OF  REFERENCE  PROGRAM 


J2  = M[,N0I  J + NU.M  > 

1=  ( J2.LT.J1 > GO  TO  130 

L2  = JP 

00  1 ?3  K — J 1 . J2 

L2=L2*  1 

120  Q=0-At J,L2»*A< K.Ll 
130  AlJ.LJ=0/P 

1=  <J.GT.l>  GO  TO  110 
140  CONTINUE 
RETURN 

C < • • ELIMINATE  UPPER  TRIANGLE 

200  J=M 

210  P = A < J # JP  1 

1=  (P.EO.O.UO)  GO  TU  4-OC 

0=1 .00/P 

J1=J-1 

J2=MAX0t J-NU.l I 
J3=MAX0( J-NL  1 1 I 
K=J1 

220  L1=JP+J-IC 
F= AtK.Ll 1 

IF  IF.EO.3.D0I  GO  TO  250 
F=F*Q 

DO  230  L=NB1,N 

230  A|K,Ll=A(K,Ll-F*A( J,L) 

L2  = JP 
L=  J1 

240  Ll=Ll-I 

L2=L2-l 

ACK.Ll )=A(K.L1 >-F*A< J.L2) 
IF  CL.EQ.J3I  GO  TO  250 
L = L-1 
GO  TO  240 

250  IF  (K.EO.J2>  GO  TO  260 
K - K — 1 

GO  TO  22  0 

260  IF  ( J • EQ  » 2 1 GO  TO  27  0 
J=  J-l 
GO  TO  210 
270  CONTINUE 
C...  F3RNARO  SUBSTITUTE 
300  CONTINUE 

DO  330  L=NBl,N 
DO  330  J=l.W 
P=A{ J. JP  > 

IF  IP.EQ.0.D01  GO  TO  40C 

0=  A C J , L 1 

J2=MAX 01 J-NL. 1 J 

L2  = JP 

K=  J-  1 


000011 10 
00001120 
0000 1 1 30 
00  CO  1 1 40 
03001150 
0000 1160 
00  C 0 1 1 70 
03001 180 
00001190 
03001203 
00001210 
00001220 
00001230 
00001240 
00001250 
0000 1260 
00001270 
00001260 
00001290 
00C01303 
00001310 
00001320 
00001333 
00001340 
00001350 
00001363 
00001370 
00001360 
00001390 
0000 1400 
000014 10 
00001420 
00001430 
00001440 
00001450 
00001463 
00001470 
00001460 
00001490 
00001500 
00001510 
00001520 
00  00 1 530 
00001540 
00001550 
00001560 
00001570 
00001 560 
00001590 
00001600 
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LISTING  Df-  REFERENCE  PROGRAM 

310  IF  IK.LT.J2>  GO  TO  320 
L2=L2- l 

Q=Q-A| J. L2 1 A A{ K ■ L I 
K=K-  I 
GO  TO  310 
320  A{ JiL) — Q/P 
330  CONTINUE 
RETURN 

AO  0 RETURN  1 
END 


00001610 
0300 1620 
0000 1630 
0000 1640 
0000t650 
00001660 
00001670 
00001660 
00001690 
00001700 
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LISTING  LlF  REFERENCE  PROGRAM 


SUBROUTINE  CHEKBM  I N .X . Y ,F . S .G I 
IMPLICIT  REALTY  (A-H.O-Z) 

DI MENS  ION  X t I ) . YC 1 > , F(  1 I ,S(  1 l.GI  1 ) 

OIMFNSICN  AC4]  lE(4|lEAU),KA(4) 

C...  USER  PROVIDES  THIS  ROUTINE  TO  CHECK  SOLUTION  AS  DESIRED. 
C...  IF  NO  CHECKS  AHF  REQUIRED  THEN  RETURN 
00  IO  J=l,4 
EA( J)=0.O0 
10  K A C J )-=  0 

OD  30  K=1.N 

SX=1 .DO/DCOStXtK)) 

Al  l )=OTANC  XCK)  ) 

A ( 2)=SX**2 

At  31 =2 .00*A t 1 1 *At 2 | 

At  A ) =DLCGt  SX  > 

CALL  ERROR  tAt 1 ),Y(K1,C( 1) ) 

CALL  ERROR  ( A t 2 > . F ( K J , E < 2 J ) 

CALL  FRRQR  ( A l 3 > . S < K > , E t 3 t ) 

CALL  ERROR  ( At  A ) ,G(K  ),  E<  4)  ) 

DO  20  J=  1 , 4 

IF  ( E< Jl.LE.EAt J ) J GO  TO  20 
EA  ( J ) = E f J ) 

KA 1 J)=K 

20  C3NT INUE 

30  CONTINUE 

KVITE  (6.0)  KA.EA 
RETURN 

40  FORMAT  ( • OCHEXBM • , 41 5. 1P4E 1 0 .2 ) 

END 


00001710 
00001720 
00001730 
00001740 
00001750 
00001760 
00001770 
00001780 
00001 700 
coooiaoo 
ooooiaio 
00001820 
03001830 
00001840 
00001850 
00001860 
00001870 
00001860 
00001893 
00001903 
0000191 0 
00001923 
00001930 
00001940 
00001950 
00001960 
00001970 
00001980 
00001990 
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LISUNt,  OF  REFCRENCE  PROGRAM 

subroutine.  chekde  in  ,x  ,v  ,f  , s.g,  alfa  ,reta  , gama.  epsa  ) 00002000 

IMPLICIT  REAL48  <A— H.Q  — Z)  00002010 

DIME  NS  ION  XI  1)  • Y(  1 ) . F(  1 ) »S1  1 >tG(  1)  ,ALF  A l J ) .BETA!  1 } .GAMA I l ) , EPS AC  1)000020  20 
COMMON  /ENDS/G1. Al.Bl, Cl . Ol.AN.BN.CN. ON  00002030 

C...  CHECK  SATISFACTION  OF  DIFFERENTIAL  EQUATION  AND  END  CONDITIONS  ' 00002040 


C...  WITH  SOLUTION 
JM=0 
DM=0 .DO 
DO  10  J=  1 . N 

T = ALFA{ J H-BETAJ J)*Y{ JJ4GAMAI J>  *F 
CALL  OIFHNC  (S(J).T.O) 

IF  ID.LE.DM)  GO  TO  10 
DM  = D 
JM  = J 

10  CONTINUE 

CALL  ERROR  (GI.G(l).DG) 

T=A  1 *Y  ( n + Bl*Ft  1 1+C14SI 1 ) 

CALL  DIFRNC  (Dl.T.OA) 

T=AN*V (NI*aN*F<N)+CN*S(N) 

CALL  DIFRNC  (DN.T.OB) 

WRITE  16.20)  JM.OM.OG.OA. OB 
RETURN 

20  FORMAT ( • OCHEKDE* , IS, IP4E 10 .21 

ENO 


00002050 
00002060 
00002070 
OO  002080 

J I +EPSA (J14GIJ)  00002090 

00  0021  00 
000021 19 
00002120 
00002130 
00002140 
000021 50 
00002160 
000021 70 
000021BD 
00002190 
00002200 
00002210 
00002220 
00002230 
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LISTING  df  reference  program 


SUBROUTINE  DATA  I N , X , V . F . S • G » * . * ) 

IMPLICIT  REAL*  8 <A-H,0-Z) 

DIMENSION  X(l>.Y(lliF(l).SIl>iG(l> 

COMMON  /ALPHA/  L AB  C 1 6) 

COMMON  /ENDS/  G1  ,A1 .01 ,C  1 . D1 .AN.ON.CN.ON 
COMMON  /FIXED/  NDIM. JCASE. JT iNT, JO UT.LPRNT .LNORM 
COMMON  /FLOAT/  T OL  tH  SC 

C...  DATA  IS  SUPPLIED  TO  PROGRAM  BY  USER  VIA  THIS  ROUTINE 
1=  (JCASE.GT.I)  GO  TO  590 
C...  PROVIDE  ID  FOP  PRJBLFM 

CALL  LABELS  (lAS  • • PROBLEM  FROM  KAMKE  •» 

CALL  LABELS  (LABI  10),'  •) 

C...  N IS  NUMBER  OF  POINTS 

C...  NT  IS  MAXIMUM  NUMBER  OF  ITERATIONS 

C...  HILL  WRITE  SOLUTION  ON  UNIT  JOUT  IF  JOUT  > 0 

C...  MILL  PRINT  SOLUTION  IF  LPRNT  IS  NOT  ZERO 

C...  LNORM  CONTROLS  WHICH  NORM  IS  USED  IN  CONVERGENCE  TEST  (SEE  NORM! 
C...  ITERATION  STOPS  TF  RELATIVE  CHANGE  OF  SOLUTION  IS  < TOL 
C...  NEW  SPACING  IS  COMPUTED  IF  CHANGE  IN  Y IS  > RSC 
N=S1 
NT  = 30 
JOUT  =0 
LPRNT=  1 
LNOFM= 1 
TOL— 5. D-4 
RSC= .0  IDO 

C...-  SPECIFY  END  CONDITIONS 
G1=0.00 
A!  = 1 .00 
B1=0  .DO 
Cl =C .00 
D1=0  .00 
AN=1  .DO 

bn=c  .oo 
CNPO.DO 
ON=7.DO 

C...  PRINT  DATA 

CALL  PAGER  ( IOOJ 
WRITE  (6.603! 

WRITE  (6.6011  NDIM, JCASF.N. NT, JOUT .LPRNT .LNORM 
WRITE  <6.604! 

W4ITE  (6.602)  Gl.TOL.R5C 
WRITE  (6.605) 

WRITE  (6.602)  Al.Bl.Cl.Dt 
WRITE  (6.602)  AN.BN.CN.DN 
C...  PROVIDE  STARTING  SOLUTION 
IP  (N.GT.NDIM)  GO  TO  570 
X( 11=0 .00 
XlN)=DATAN(DNI 
CALL  UNIFRM  ( N , X ) 


00002240 
00002250 
00002260 
00002270 
00002280 
00002290 
00002300 
00002310 
00002320 
03002330 
00002340 
00002350 
00002360 
00002370 
00002380 
00002390 
00002400 
00002410 
00002420 
00002430 
00002440 
00  D02450 
00002460 
00002470 
00002480 
00002490 
00002503 
00002510 
00002520 
00002530 
00002540 
00002550 
00002560 
00002570 
00002580 
00002590 
00002600 
00002610 
00002620 
00002630 
00002640 
00002650 
03002660 
00002670 
00002680 
00002690 
00002700 
00002710 
00002720 
00002730 


I 
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LISTING  OF  REFERENCE  PROGRAM 


Cut 

570 

580 

C... 

590 

601 

60  2 

603 

604 

605 
6C  6 
607 


CALL  GUESS  (NiXtTtFiSiGiCSaG) 

WRITE  (6,606) 

RETURN 

TO  ABORT  A CASE,  RETURN  1. 

■RITE  (6,6071 
RETURN  l 

WHEN  A JOB  IS  FINISHED  THEN  RETURN  2 
RETURN  2 
FORMAT  ( 121  ICI 
FORMAT  (1P10E12.4I 
FORMAT  < ltHO,  5X,  4HNOI  M,  5 X , 5H  JCASE  . 9 X . SHN 
1 NT ,SK, 5HLNORM  > 

FORMAT  ( 5H0  I 1 ■ 10X. 3HT0L.9X.3HRSC) 
FORMAT  (4H0  A. 1 IX . 1 HU , 1 IX, IHC, 1 lx , IHO) 
FORMAT  < 1H  ) 

FORMAT  (9H0N  > NO  I M ) 

END 


00002740 
000  02750 
00002760 
00002770 
000027BO 
00002790 
00002300 
00002810 
00002820 
00002830 

8X.2HNT , 6X, 4H J OUT. 5 X.SHLPROO 002840 

00002850 

00002860 

00002870 

00002880 

00002890 

00002900 
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subroutine  deltas  (s.dl.ds) 
implicit  heal*h  (a-HiO-zi 

C...  COMPUTE  CAP  DELTA,  DL.  £ SMALL  DELTA,  DS,  FROM  SIGMAII-l),  S 
D_=S/(S+1.D0) 

DS  = < S— 1,D3)/15E1  .DO) 

RETURN 

END 


00002910 
00002920 
03302930 
0 00029 AO 
00002950 
00002960 
00002970 


SUBROUTINE  UIFRNC  IA1.A2.0I 
IMPLICIT  RFALT8  <A-H,0-Z) 

C...  COMPUTE  RELATIVE  O I F FEPENCE . D,  BETWEEN  Al  C A2 
0=0 A 65 (A1-A2 I 
A= .5D040 AOil A1 *A2) 

IF  IA-LC.O)  RETURN 

0 = 0/ A 

RETURN 

END 


00002980 
00002990 
00003000 
000033 1 3 
00003020 
00003030 
00003040 
00003050 
00003060 


SUBROUTINE  ERROR  (A.B.E) 

IMPLICIT  RE  AL*8  IA-H.O-ZI 

C...  COMPUTE  RELATIVE  ERROR,  E,  OF  Q FROM  EXACT  VALUE,  A 
E=DA3S  CA-3> 

D=Da3S< A ) 

IF  IJ.LF.F)  RETURN 

E=E/J 

RETURN 

END 


00003070 
00003083 
00003090 
00003100 
000031 10 
00003120 
00003130 
00003140 
00003150 
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SUBROUTINE  GUESS  l N . X. V, F, S, G, * I 
IMPLICIT  REAL *6  (A-H.D-Z) 

DIME  NS  ION  XC  1) . Y< 1 1 ,FI  1 ) ,5(  1 ),G(  1 ) 

DIMENSION  XAI2 ) , YA (2 ) , FA ( 2 ) , SAC2I 
COMMON  /ENOS/  Gl,A)*Ul,Cl,Dl,AN,BN,CN,DN 
C...  GJ  ESS  SOLUTION  IN  LACK  OF  A BETTER  APPROXIMATION 
C...  WRITTEN  BY  DON  TODD  APRIL  13  1978 
H=X(N)-XU  I 
MS=H**2 
OA=B  l/H 
BB=BN/H 
CA=C 1 / HS 
CB=CN/HS 

AI 1=  A 1 **2  + 3.00*1 BA4*2+CA**2)-2,O0*BA*l A14CAJ 

ANN  = AN«T 2+B.DO* I BB *4 2*CB **2  » *2 ,0 0* B0 4 l AN4C3 ) 

AlN=-Al*B0  + AN»BA-BA*CB<-BO*CAA2.PO*IRA*aB+CA*CB) 

0ET=A1 14ANN-A1N442 

IF  I DET,EQ.O.DO)  GO  TO  10 

E 1 = I ANN*01-A1N*ON»/OET 

EN=(A1 1*0N-AIN*D1I /det 

XAC 1 l=Xt 1) 

XA(  2 )— XI  N> 

Q= BAAEl+BBAEN 

YA I l |=AI*El-a 

YAI2  >=AN4EN4Q 

FT  = I YAI2I-YAU  > >/H 

0=CA*E1ACB*EN 

FA  I 1 »=FT+C0A4E1-Q)/H 

FA<2  )-FT+(BB*ENTai/H 

FT  = t FA  12  I — FAC  1 ) >/M 

SAU  > = FT«-CA4EI/HS 

SAI 2 I — FT 4CB4  EN/MS 

CALL  QUINTS  ( 2 » X A, YA .FA. SA ,N ,X ,Y ,F  »S) 

call  ntegrl  in.gi.x, v.f.s.g) 

WRITE  16,201 
RETURN 

10  WRITE  16,30) 

RETURN  l 

20  FORMAT  < • OSOLUT ION  GUESSEO1) 

30  FORMAT  < < OCONTRAOI CTORY  END  CONDITIONS') 

END 


00003160 
00003170 
00003160 
00003190 
00003200 
00003210 
00003220 
00003230 
00  0 03240 
00003250 
00003260 
00003270 
00003280 
00003290 
00003300 
000033 10 
00003320 
00  003330 
00003340 
00003350 
00003360 
00003370 
00003330 
00003390 
00  003400 
00003410 
00003420 
00003430 
00003440 
00003450 
00003460 
00003470 
00003480 
000034 90 
00003500 
00003510 
00003520 
00003530 
00003540 
00003550 
00  003560 
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SUBROUTINE  NORM  IN»Yl<V2iC<Kl 
IMPLICIT  REAL*3  [A-H,0-Z> 

01  MENS  ION  Y1111.Y2I1) 

COMMON  /FIXE 0/  NDIM. JCASE, JT .NT, JOUT.LPRNT .LNORM 
Z...  COMPUTE  "DISTANCE"  BETWEEN  ARRAYS  Y1  E.  Y2 
K=0 

C=O.DO 

[F  < LNORM. NE  . I ) GO  TO  TO 
C...  COMPUTE  A GLOBAL  NORM 
D=Y1  (1  ) 

R=0 

DO  10  J=],N 
D=DMINMO.Yl  Ul  I 
R=l>MAX  HR,  YI  <J  > I 
10  CONTINUE 
D=R-0 

IF  (O.LE. 0.001  D=R 
IF  CD.LE.C.DOl  0=1.00 
00  20  J= 1 . N 
R = DABS  < Y2<  J | — Y 1 { J I ) 

IF  IR.LE.O  GO  TD  20 
C = R 
K=  J 

20  CONTINUE 

C=C/0 
RETURN 

00  IF  <LN0RM.NE.2)  GO  TO  SO 

C...  COMPUTE  A LOCAL  NORM 

DO  AO  J=  1 . N 

CALL  OIFRNC  (Y 1 ( J > , Y2( J I ,0 ) 

IF  IO.LE.C)  GO  TO  AO 

C=D 

K=  J 

AO  CONTINUE 

50  RETURN 

ENO 


00003570 
00003580 
00003593 
00003600 
00003610 
000D3620 
00003630 
COO  03640 
000036S0 
00003660 
00003670 
00003680 
00003690 
00003700 
00003710 
00003720 
00003730 
00003740 
00003750 
00003760 
00003770 
00003780 
00003790 
00003800 
00003810 
00003820 
00003830 
00003840 
00003850 
00003860 
00003870 
00003880 
00003890 
00 003900 
00003910 
00003920 
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SUBROUTINE  NTEGRL  { N ,G1 , X, Y ,F . S. G) 

IMPLICIT  REAL*  B (A-H.Q-ZJ 
01  MENS  ION  X(  1 ) , Y 1 1 ).F( 1 > ,S<  LJ,G( 1 1 
-C...  COMPUTE  INTEGRAL  OF  QUINTIC  SPLINE 
G( 1 >=G1 
OO  10  J2=2.N 
J1=J2-1 
H=X{ J2  J-XI J 1 J 

GC  J2  J = G(  J1  )FH*  t .500* ( Y( J I) +Y< J2> I *H*I . ID 0+ (F l J 1 ) -F ( J2 1 I 
1 *H*(S( J 1 1 4SC J2) 1/ 1 20.00 )) 

10  CONTINUE 
RETURN 
END 


00003930 
0 00  039*0 
00003950 
00003960 
00003970 
00003900 
CO  D 0 3990 
00004000 
00004010 
00004020 
00004030 
00004040 
0000*053 


10 


30 

*0 


SUBROUTINE  PRINTS  C N , X , Y ,F  , S ,G  » 

IMPLICIT  REAL*  8 (A-K.O-ZJ 
D I MENS  ION  X<I).Y(|)|FU).3U).QI1| 

COMMON  /ALPHA/  LABI  36) 

COMMON  /FIXED/  NOI M » JCASE , JT > NT , JOUT tLPRNT 

IF  (LPRNT.EQ.Ol  RETURN 

PRINT  SOLUTION 

CALL  DAGER  ( 1001 

W9ITE  16.30) 

MN=X (2 >-X( 1 ) 

N2=N-2 

00  10  J= I , N2 
H=HN 

HN  = X (J+2  l-XI JF I ) 

SI GMA=HN/H 

WRITE  (6,40)  J . X(J ). rjj) ,F (J) . SI J) ,G(J) , H, SIGMA 

U-N-  l 

H=HN 

WRITE  16.40)  J,X(J  >. Y(J),=< J),S<J>  ,G1J).H 

J=N 

WRITE  (6,401  J,X(J),V(  J) ,F ( J).S< J)  ,G( J) 

RETURN 

FORMAT  ( 1H0.10X,  IHX,  UX,  1HV,  1 1 X , 2H YP , 1 OX , 3HYPP . 9X , JHJ 
11HS) 

FORMAT  ( IS, 1P5E1 2.4 , E13 , 3, El  0. 2> 

END 


00004050 
0000*070 
0000*000 
CO  00  *090 
0000*100 
0000*110 
00004120 
0000*130 
000041*0 
0000*150 
0000*160 
00004170 
000041 90 
00004190 
00  004200 
00004210 
00004220 
00004230 
00004243 
0000*250 
0000*260 
00004270 

>13X,1HH,IOX,OOOO420O 
00004290 
00004300 
OOC  04313 
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10 


SUBFOUTINF  QLQE  ( N . X ♦ Y . F . S , G , ALF A . BETA .GA M A.EPSA I.  00004320 

IMPLICIT  MEAL#  8 I A — H a 0-2 ) 00004330 

O I ME  NS  ION  XI  It • Y ( I >,F(1  > ,S{  1 1.0(1}  ,ALFA< 1 t , BE T A ( 1 J , G AMA I It  . EPS A { I I 00 0 0 43 *0 
USER  PR0V10ES  THIS  ROUTINE  T<J  00004350 


EVALUA1E  COEFFICIENTS  OF  QUASI -LINEAR! ZED  EQUATION 
DO  10  J = I . N 

R = OSQRTI 4.O0*F<  J| TYC J )**4) 

A.FA<JJ=3.O0*Y(J)»F(  J)*IYI  J } **  2-  <.2  .D0*F(  J»+Y(Jt**4)/R) 
BET  A(  J J=F<  J ) *(  (4.D0*FCJ1+3.D0*Y|J)**4) /R-3 ,D0«YI  JJ  **2 I 
JAMA I J 1 = Y(  Jl  *(  (6. JO*F( J)#YC  J >**4  1/R- Y( J ) **2) 

FPSA  IJ  1=0.00 
CO NT  4NUE 
RETURN 
ENC> 


00004360 
00004370 
00004330 
00004390 
C0004400 
000044 1 o 
00004420 
000  D4  430 
00004440 
00004450 
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SUBROUTINE  QUINTS  ( N 1 * XI , V t , F | , S 1 . N2, X2 , V2 ,F2. S2 > 

IMPLICIT  REAL*  S (A-H.O-ZJ 

DI MENS  ION  XI C I I. VI C 1 I.Fll I ),SI<  t >.  XZ(  l ) ,Y2I1 I.F2I  1 I.S2C 1 J 
C...  QU1NTIC  SPL INF  INTERPOLATION 
C...  WRITTEN  BY  DON  TODD  APRIL  II  1978 
Xft  = - L.  D5  0 
J2=  1 

DO  30  J=1,N2 

IF  (X2< JJ.LE.XRI  GO  TO  20 
10  Jl=J2 

J2=J24| 

XR=X  H J2 ) 

IF  (J2.EQ.N1)  X«=1.D50 

IF  < X2 I J ) . GT .X R I GO  TO  10  ) 

H=X1  IJ2J-XK  Jl> 

YA  = Y1(  Jl  >♦ .200  *H*F 1 { Jl) 

YB=Y1<  Jl  H-.*D0*H*F1C  Jl )* .0  SO  0*H**2 *S»  < Jl  > 

TC-YII  J2  I-.  *D0*H*F1  ( J2  I*  . 0 90  Q*H**2*SM  J2  1 
YO=YI(  J2>-.2D0*H*F1I  J2) 

20  TA=< X2 IJ 1-X1 I J 1 ) >/H 

TC=1 .DO-TA 

Y2<JJ=(Y1(JI )*TC*« 2+  5 .DO* YA  * TA4TC4 I 0«D0*V6*TA**2 I *TC**3 
L + IY1 ( J2  J*TA**2  + S.0r*YD*TA*TC*10.D0*YC*TC**2 ) *TA**3 

aA=ITC-4.D0*TAl *TC**3 
QD=I 4.00*TC-TAI*TA**3 
0B=»  2.O0*TC-3.D0*TA)*TC**2 
0C=( 3. DO*T  C-2.D0*TAI *TA**2 

F2  ( J 1 = 5.  DO*  I-Yl  I J l >*TC**A+QA*YAt-2.  00*QB*YB  *TA 
1 +Y  1{  J2)*TA**A*QD*YD  + 2.Dl*£JC*YC*rC»/H 

OA-(TC*«2-6.DO*TA*TC+3.DO*TA**2)*TC 
QD= (3. D0*TC**2-6.D0*TA*TC*TA**2)*TA 
S2 (J|~20.D0*(Y1(J1 ) * TC**  3-QO  * YA *QA * Y0 
I +Y  H J2 J *TA**3*QC *YD+0D*YC)/H**2 

30  CPNT INUE 
RETURN 
END 


00004460 
00004*70 
00004*80 
COC  0**90 
0000*500 
0000*510 
0300*520 
0000*530 
00  0 0*S*  0 
CO  00*550 
0000*560 
0000*570 
0000*500 
00004590 
0000*600 
0000*610 
0000*620 
0000*630 
000046*0 
00004650 
0000*660 
0000*670 
0000*683 
0000*690 
0000*700 
0000*710 
0000*720 
00004730 
090047*0 
0000*750 
0000*760 
0000*770 
0000*780 
0000*790 
0000*000 
0000*810 
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SUBROUTINE  PESPAC  (N  ,X,  V.F.S.G.XA. YA.I-A.SA) 

IMPLICIT  WEAL  A 3 <4-M.CI-Z> 

DIMENSION  X<  1)  , Y < 1 > ,FC  I ) .SC  1 I .&(  I)  .XAC  1 ) . VAC  L 1 ,F  AC  1 1 .SAC  1) 

COMMON  /ENDS/  G1 

COMMON  /FLOAT/  TOL.RSC.DY 

C...  DY  IS  COMPUTED  IN  UPDATE.  R SC  IS  SET  IN  DATA. 

IF  COY.LE.fiSC)  RETURN 

C...  COMPUTE  NEW  SPACING  FOR  NEXT  ITERATION 
C...  WRITTEN  BY  DON  TODD  APRIL  13  1 978 
N l — N— 1 
H=  0 . DO 

00  10  J— 1 . N 1 
J1=JM 

l 0 H=H  + OSORTC  I X ( J l |-Xt  J ) )**2+< Y( J 1 I -Y ( J ) ) **2> 

0H=H/N1 
H=DH 
OR=0 .00 
XAI 1 J=X< 1 ) 

J2  = I 

DD  40  J=2.NI 

20  IF  <DR.GE.HJ  GO  TO  30 

H - H—  DR 
XR=X(J2> 

J1=J2 
U2  - J 2*- 1 

OX  = X| J 2>-X< J 1 ) 

dt=y i j2)-y< j n 
DR=DSQRT CDX**2+DY**2 ) 

CT  — D X/  DR 
GO  TQ  20 

30  XAC J )=XRFH4CT 

XR=X  AC  J > 

DR=DR- H 
H=DH 

40  CONTINUE 

XA  { N 1=  X C N > 

CALL  QUINTS  4N.X.Y.F .S.N.XA. YA.FA. SA > 

DD  SO  J=  2.NL 
X( J)=XA( JJ 
Y I J>=YAI J> 

FI  J J — F A | J) 

SO  SC  3 > =5  A(  J J 

CALL  NTEGRL  (N.G1.X.Y.F.S.G) 

WRITE  16.60) 

RETURN 

60  FORMAT  (•  NEW  SPACING  COMPUTED* ) 

END 


00004820 
00004830 
00004840 
00004850 
00004860 
00004870 
00004880 
00004890 
00004900 
00004910 
00004920 
00004930 
00004940 
000049S0 
00004960 
00004970 
00004980 
03004990 
00005000 
00005010 
00005020 
00005030 
00005040 
00005050 
00005060 
00  DO  50  70 
00005080 
00005090 
00005100 
00005110 
00005120 
00005130 
00005140 
00005150 
00005160 
00005170 
00005180 
00005190 
00005200 
00005210 
00005220 
00005230 
00005240 
00305250 
00005260 
00005270 
00005283 
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SUBROUTINE  PESULT  C N ,R . X . V , F . S ,G > 

IMPLICIT  REALY8  (A-H.O-2) 

Oi  MENS  ION  R(3. NI.XI 1 ).Y<  1).F(1 », S<  1),G<  |) 

C...  COMPUTE  Y,  F,  {.  S FROM  RESULT,  R , OF  BANDED 
Ml  =X (2 )-X(  I I 

T1  = (P<  3, 21 -R 13,1 ) 1/HI-HI*!  2,DO*R(2,l)+R12,2))/6.00 
Yf 1 )=R 13, l 1 
F( 1 )=T1 
SI 1)=RI2,1 ) 

Gill =R (1,1) 

N1=N-1 

DO  10  1=2, N1 

IA=I +1 
I D= I — 1 
HI  1 — Hi 

MI=XUA)-XtI I 
SI t=Hl/H I 1 

CALL  DELTAS  ISIl.DL.OS) 

T1=.SD0*C-H(3»  ID)/ Ml  1 + 1 1 , JO/HI 1- 1 .OO/HI )*R(3,I|tR(3,IA>/HI) 
1 *1  HI  l*ft( 2, ID) F2 ,00*1  HI )-H[)*R( 2» I)-HI*RI2. IA) 1/12.D0 
0=51  1 *R(  2,  ID  )- ( S II  FI  .DC  I *R  I 2 , I 1 +R(  2,  I A) 

Yt  I 1 =S (3,11 

FI  I >=TH-DS*H  1143/36. DO 
SI  I )=R(2.I  ) TDL  *0/6 • DO 
GCI)=Rlt,I) 

10  CONTINUE 
HI l=HI 

TI=(R< 3,N>-R(3,N-I ) >/HIl*-hlI  l*t2.O0  4RI2.N)*RC2,N-U 1/6.D0 
Y(N1=R(3,N) 

FI  N)=T  1 

$< N)=R{2 ,N) 

G<  N)=R  tl  ,N) 

RETURN 

END 


00  005290 
00005300 
00005310 
00005320 
03005330 
00005340 
00005350 
00005360 
00005370 
0DDO5380 
00005390 
00005400 
00005410 
00005420 
00005430 
00005440 
00005450 
00005460 
00005470 
00005480 
00005490 
00005500 
00005510 
00005520 
00005530 
00005540 
0 00  05550 
00005560 
00005570 
00005580 
00005590 
00005600 
0000561 0 
00005620 
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SUURCIUTINf  SYSTEM  { N . X . ALF  A,  HE  TA  ,G  AM  A i EP  SA  ,D  .R  ) 

IMPLICIT  REAL*  0 (A-H.O-Z1 

D I MENS  ION  X(N).ALFA(N|,HETA(N1  . G AM  A t N > ',  E PS  A C N I .D( 3.N,  1 2 I ,RC3,N> 

COMMON  /ENOS/  G1 , A1 , 01 ,C 1 . 01 .AN.6N .CN.ON 

COMPUTE  COEFFICIENTS  AND  H HS  OF  SYSTEM 

00  10  K=l,12 

DO  10  1=1. N 

DU  10  J=  1 i 3 

0(  J i 1 , K >=3  .03 

EQUATIONS  FOR  1=1 

Hi =X  12  >-Xl  1 I 

D(  I > 1. Cl=- 1 .DO 

0<2.1.  SI=EPSAU) 

0(2,1.  6)  = - I.DO-GAMAI 1 )*H|/3.D0 

0(2,1,  7)=META( 1 1-GAMAC l)/HI 

0(2,1,  9)=-GAMA(  1 >*Hl/fc.OO 

D<2,  1,  I 0 1=GA«M  D/HI 

D(3,l,  51=C1-D1*HI/3.D0 

D(  3 ♦ 1 , 6)=A1-Bl/Hl 

0(3.1,  8I=-B1*HI/6.D0 

0(3,1,  9)=D1/HI 

RC  l , 1 I =-Gl 

R(2,1I=-ALFA(1> 

R(3,  U=D1 
EQUATIONS  FOR  [=2 
HI  1 =H1 

H I = X ( 3 )-x( 2 1 
S I 1=HI/H 11 

call  celtas  (sii.ol.osi 
A l 1=HI 1**3* (DL-2. DO* DS 1/720. DO 
0C=  < GAMA (2 l*DS*Hl 1-6 ,DO*OL  > / 36.0  0 
D( 1 , 2,  31= 1 .DO 

0(1,2,  A 1=-H1 l**3/30.D0*Al I *SI 1 
D(l,2.  5)  =9  .DO*H[  1/20. DO 

0(1,2, 6 1 =— 1 • DO 

Dl  I ,2.  7)=HIl**3*(2.D0*SI  1-3. DO  1/120. 00-All*(5I  1*1.001 

0(1.2.  0 >=H ! 1*1  I . DO /S 11*1  1 .001/20. DO 

D(l,2,  101-Hl l**2*HI/12a.OO*Al I 

Dl  1.2,  11  ) = -Hll/(  2O.D0*Sll) 

D(2»2»3)=GAMA(2)*h1 1/12.D0+SI 1 +QC 
D I 2.2,  4>  = — GAMAI2  1/ I 2.00*H1  1 1 ‘ 

DI2.2.  5 1 = EPS  A I 2 1 

D(  2 , 2. 6 > =- 1 . DO  *GAM  A 1 2 1* I HI  1 — H 1 1 / 6 . O 0-0 C * ( S 1 1 *1  .DO  1 
D( 2,2,  71 =QtT A ( 2 1 *. 5U0*GAMA( 2 J*  ( 1 .OO/Hl 1-1 .DO/HI  I 

D<  2 , 2, 9 > =-GAMAI  2 )*H I /i 2.00  *QC 
01 2.2*  10J=GAMA1 21/1 2.00»Hl) 

Dl  3, 2,  2 > = — HI  1/6. Of, 

0(3.2.  J J — 1 , D 0/H I 1 

0(3,2,  51 =-<H I 1 +H I ) /3 .DO 

0(3.2,  tt=-  ( 1 .DO/HI  1*  1 .DC/H  I ) 


00005630 
00005640 
00005650 
00005660 
00005670 
00005680 
00005690 
00005700 
0000S710 
00005720 
00005730 
00005743 
00005750 
00005760 
00005773 
00005780 
00005790 
00035803 
00005810 
00005820 
00005830 
00005840 
00005850 
00005860 
00005870 
00005880 
00005890 
00005900 
00005910 
00005920 
03005930 
00005940 
00005950 
00005963 
00005970 
00005980 
00005990 
00006000 
00006010 
C00063  23 
00006030 
00006040 
00006053 
00006060 
00006070 
00006383 
00006090 
00006100 
000061 10 
0G0061 20 
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LISTING  OF  REFERENCE  PROGRAM 


D(3.2.  8>=-HI/6.D0 

D( 3, 2.91=1 .OO/HI 
R( 1. 21=0. DO 
RC2. 2)=-ALFA<2) 

R(3.2)=0.D0 

C...  EQUATIONS  FOR  2 < I < N 
N|=N-1 

00  100  l=3,Nl 

A2  I = HI  ** 3* (DL* 2. 00*DS/SI 11/720.00 
HI 2=  HI I 
HI l=Hl 

HI=X (I +1 l-XC I 1 
512=51 1 
S I 1=  HI  /H  1 1 

CALL  DELTAS  (Sll.DL.DS) 

A 1 I = HI  1**3* I DL-2.D04DS  1/72  0.  DO 
QC=( GAMAC I )*DS*HI1-6.00*DL»/36.DO 
DC  1 , I,  1 )=HI2*HI 1**2/120.D0+A2I*S12 
Dll. I.  21=-SI2*HI 1/20. DO 
Dl  1.  I.  31  = 1.1)0 

DC  1 . I.  4 I =H 1 1 ** 3* ( 1 .DO /SI  2-1 *DQ)/60.D0+A|  I*SI 1-A2 1 * t SI  2 + 1 . DO) 
0(1.1.  5* =HI 1 * ( SI  2*  IO.DO) /20.DO 

D( 1 . I.  6 >=- 1 . DO 

0(1.1,  7»  = HI1**3*IS11-1 .DO) 76  0. DO  — A II*! SI  1*1 .DOI*AZI 

0(1.1.  8)=HI i*( l.DO/SI 1*1 0. DO 1/20.00 

D(  l,  I,  10  >=HI  I**2*H1/  12  0. 00  * A 1 1 
0(1.1.  1 1 >=-HI 1/(20. DQ*Stl ) 

D(  2.  1.2 )=CAMA<  I )*HI  1/ 1 2. DO  *S  1 1 *QC 
0(2.1,  4 1 = — GAM  A ( 1 ) / ( 2 ■ D O*  HI  1 ) 

0(2.  I.  5 >=EPS  AC  I } 

D( 2. 1.6)=-1.00*GAMAC  I)*(HI  l-HI 1/6. DO-OC*< SI  1 ♦ 1 . 001 
D(  2.  1.  7>=«ETA(  I) *.500*GAMAI | )*( 1 .DO/HI I- I .OO/HI 1 

0<  2,  1 , 9 >=— GAMA ( I )*Hl/12.D0+QC 
D(2.I.  10)=GAMA(t)/(2.D0*HII 

DO,  I,  21=-Hl  1/6. DO 
DC  3 « 1,  31=1 .DO/HI  1 
DO, I,  S)=-(HI  1*HI  1/3. DO 
DC  3 . 1 < 6)  = -< 1 .DO/HI  1+1 .OO/HIl 

D( 3 » 1 ■ fl)  = — HI/6 .DO 
0(3.1.  91=1. DO/HI 

RC  1 . I 1=0  .DO 
R(2. I >=-ALFA< I 1 
RC 3. 11=0 .DO 
100  CONTINUE 
C...  EQUATIONS  FOR  1=N 

A2I=HI**3*(DL+2.DO*OS/S11 1/720 .DO 
HI2=H1  l 
HI  1 = HI 
SI 2=511 

DC  l.N,  1 ) = HI2  *H I 1**2/120. O0+A2I *SI2 


00006130 
00006140 
00006150 
00006] 60 
00006170 
00006180 
00006190 
00006200 
00006210 
00006220 
00006230 
00006240 
00006250 
00006260 
00006270 
00006280 
00006290 
00006300 
00006310 
00006320 
00006330 
00006340 
00006350 
00006360 
00006370 
000063BO 
00006390 
00006400 
00006410 
00006420 
00006430 
00006440 
□OD06450 
00006460 
00006470 
00006480 
00006490 
00006500 
00306510 
00  006520 
00006530 
00  306S40 
OO0O65SO 
00006560 
00006570 
00006580 
00006590 
00006600 
00006610 
00006620 
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LISTING  of  reference;  program 


01  IiNi 

2) =-SI2*HI 1/20 . DO 

00006630 

Dl  l.N. 

31=1 .DO 

00  00  66 AO 

D(  1 , N» 

4)=HIl**3*(2.Dn/SI2-3.D0)/120.DG-A2I*lSI24l.D0> 

00006650 

0 C I >N. 

51  = HIl*(5l2Hl.DOl/2O.D0 

00006660 

D(  I . N. 

61=- 1 .DO 

00006670 

0(  l.N. 

7J=-HM**3/3  0.D0*A2I 

00006680 

D( I.N. 

8)=9.D0*Hl 1/20. DO 

00006690 

D<  2.N, 

3)  =GAM  A ( N 1 *H  11  /6  .DO 

00006700 

D(2,N, 

4)=-GAMA[N)/HIl 

00006710 

Q<  2 . N. 

SJ=£P5ACN> 

00006720 

n><  2.n, 

6)  =-  1 .0  04-GAM  ACN  ) *H  I 1 / 3 .DO 

00006730 

Dl  2.N. 

7J=OETA(N»4GAMA(Nl/Ht 1 

00006740 

n>(  IiNi 

2>=ftN*Hl  1/6. DO 

00006750 

D(  3.  N. 

3)=-BN/HI l 

00006760 

d<  3.n. 

5 l=CN48N*rt 1 1 /3 .DO 

00006770 

Ol 3.N> 

6)=AN46N/MI 1 

00006780 

R<  L . N> 

= 0.00 

00006790 

R C 2 , N) 

= -ALFA(N  1 

00006800 

RC  3iN} 

=DN 

00006810 

RETURN 

00006820 

END 

00006830 
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list 

c... 

10 

20 


C . . « 

c. . . 

so 

c... 

60 

C . . . 

70 

0001 

6002 


INC  OF  REFERENCE  PROGRAM 

SUBROUTINE  UNIFHN  (N.X) 

IMPLICIT  REAL*  8 (A-H.D-7) 

DIMENS [ON  X<  1) 

GIVEN  N,  XII).  6 X(N>  COMPUTE  UNI  FDR 
Nl=N-l 

DX=( XI N»-X< 1 11/N1 
DO  10  J=2.N1 
XI  J > = X 11 ) ♦< J-l )*DX 
WRITE  <6,20) 

RETURN 

FORMAT  ( 'OUNIFORM  SPACING  COMPUTED') 
END 


00006340 

00006950 

00006860 

SPACING  00006870 

03  006830 
00006890 
00006900 
00006910 
' 00006920 
00006930 
C00069A0 
000069SD 


SUBROUTINE  UPDATE  ( N , Y I , FI , G I • Y2 .F 2 . G2 , * ) 
IMPLICIT  REAL*  8 (A-H,0-2) 

DI ML N5  ION  V 1 ( 1 i ,F1 1 1 ),G1 c I », Y2( I ), F2( I J .G2( 1 ) 
DIMENSION  KAI3) 

COMMON  /FIXED/  NDIM, JCASE. JT 
COMMON  /FLOAT/  T0L.RSC.E13> 

COMPUTE  CHANGE  IN  SOLUTION 
CALL  NORM  (N.Yl,Y2.C(l>.KA( 1>) 

CALL  NORM  IN. FI , F2.EI2) ,KA(2)> 

CALL  NORM  IN.Gl ,G2.EI3),KA(3>) 

WHITE  16.6001)  JT.KA.C 
UPDATE  SOLUTION 
DD  50  X—  L » N 
Y1  I K ) = Y? IK) 

FI  I K ) = F2I K ) 

Gl (K 1=G2IK ) 

CHECK  CONVERGENCE 
DO  6 0 J=  I . 3 

1=  I E < J ) »6T . TGL ) GO  TD  70 
CDNT INUE 

I-  CONVERGED  THEN  RETURN  1 
WRITE  (6,6002) 

RETURN  l 
RETURN 

FORMAT  I*  UPDATE* , *1 10. IP3EI0.2) 

FORMAT  («OCDNVERGED  SOLUTION*) 

END 


03006963 
00006970 
00006980 
OC  006990 
00007000 
00007010 
00007023 
00007033 
000070*0 
00007050 
00007060 
00007070 
00007080 
00007090 
00007100 
000071 10 
00007120 
00007130 
000071*0 
00007150 
00007160 
00007170 
03007183 
00007190 
00007200 
03007210 
0300  7223 
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LISTING  OF  REFCRENCH  PROGRAM 


SUBROUTINE  WRITES  I N , X . Y ,F  , S ,G  ) 

IMPLICIT  RFAL4S  IA-H.O-2) 

UI ME  NS  ION  XIN).YIN).F(NI»SIN).GIN) 
CGMMON  /ALPHA/  LA9I36) 

COMMON  /FIXED/  NO I M , JC A SE . JT , N T » JO  UT 
IF  tJOUT.LE.O)  RETURN 
C...  WRITE  SOLUTION  ON  UNIT  JI1UT 
WR  I TE  I JOUT ) LAuiN 
WRITE  (JOUT)  X.Y.FiS.G 
WRITE  IGiS")  JOUT 
RETURN 

50  FORMAT  I'OSOLUTinN  WRITTEN  ON  UN  I T • , I 3 I 

END 


00007230 
00  00  72 AO 
00007250 
00007260 
00007270 
00007280 
00007200 
00007300 
00007310 
00007320 
00007330 
00007340 
00007350 


SUBROUTINE  PAGER  <N) 

COMMON  /ALPHA/  L AEH  1 R)  , ID1  (9)  . ID2<  91  . JUNE  . NH  NE,  JPAGE 
C...  LINE  COUNTER  ROUTINE 
JL INF= JL INC*N 

1=  I JL INE.LE .NLINE I RETURN 

JL INF=N 

J3 AGE* JPAGE +1 

CALL  T IMCHK  IT  I 

M=T/60. 

S=T-60  *M 
T = M+  S/ 100. 

WRITE  (6,10)  I Ol , 102 .JPAGE 
WRITE  (e,20)  LAO.T 
RETURN 

entry  pages 

C...  INITIALIZE  LINE  COUNTER 
CALL  T IMCHK.  < T ) 

CALL  LABELS  ILAB.36H  1 

CALL  LABELS  <L AB{ 1 0 ) .LAB ) 

C...  FOLLOWING  CARP  SUP PL  ICS  USER  ID 

CALL  LABELS  C1D1.36HDC  TODD  CDPS  1 

CALL  GETNOW  (ID2J 

JPAGE*  0 

ML  I NE=  50 

JLINE=NLINF+J 

RETURN 

10  FDRMAT  I IH1.18A4.3BX, 4 HP AGE ,16) 

20  FORMAT  < 1H  , 1 0 A A , 3 8X  . 4 FT  I ME  . F6 . 2 ) 

END 


00007360 
00007370 
00007380 
CO  00  7390 
00007400 
00007410 
CO 0074 20 
00007430 
00007440 
00007453 
00007460 
00007470 
00007403 
00007400 
00007500 
00007510 
00007520 
00007530 
00007540 
000075SO 
00007560 
00007570 
00007500 
030075Q0 
00007600 
00007613 
00007620 
00007630 
00007640 
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/ 


LISTING  OF  REFERENCE  PROGRAM 


SUBROUTINE  LABELS  <L,N1 
01  MENS  ION  L(  I)  I Nil) 

C..«  TRANSFER  LITERAL  INTO  AN  ARRAY 
DO  10  J=  l , 9 
10  L ( J ) =N ( J ) 

return 

END 


00007650 

00007660 

00007670 

00007680 

00007690 

00007700 

00007710 


subroutine  tinchk  ct>  00007720 

C...  SYSTEM  DEPENDENT  ROUTINE  TO  PROVIDE  USED  CPU  TIME  IN  SECONDS  00007730 

T=0.  000077*0 

RETURN  00  007750 

END  00007760 


SUBROUTINE  GETNOW  (N) 

DIMENS  ION  N<  1 ) 

C • • • SYSTEM  DEPENDENT  ROUTINE  TO  PROVIDE  SNDT  ID  IN  FOLLOWING  FORM 
CALL  LABELS  <N.*ARO08671  10129  WED  MAY  10*  1978*1 

RETURN 
END 


00007770 

00007730 

00007790 

00007BOO 

00007810 

00007820 
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APPENDIX  B 
INITIAL  SOLUTION 

To  begin  iteration  (Section  3.2)  an  initial  "in-hand"  solution  is  needed,  and  at  times 
it  cannot  be  justified  as  anything  more  than  a guess.  Even  a guess  should  be  made  as 
consistent  as  possible,  however.  In  particular,  it  should  satisfy  the  end  conditions,  Eq. 
(24).  Since  the  spline  is  a quintic  in  each  interval,  [xi}  xi+1],  it  seems  reasonable  that  a 
quintic  over  the  whole  interval,  [xj , xn  ],  could  possibly  be  a good  guess.  Equation  (24) 
with  i = 1 and  i = N gives  two  equations  in  six  unknowns.  If  further  assumptions  are 
made  to  fully  specify  the  six  unknowns,  then  the  quintic  would  be  determined.  The 
following  procedure  is  proposed  to  specify  a qunitic  with  the  least  variation  in  itself  and 
its  derivative. 

Define 

/ 

H = XN  ~ *] 

* = E % " rP 

M - L (mN  - mj) 

E = Xl  + XN  + K2  Bml  - m)2  + (mN  - fh)2] 

- H4  [(M,  - M)2  + (Mn  - M)2]  (B-4) 


It  is  proposed  that  E be  minimized  subject  to  the  constraints  of  Eq.  (24)  with  i = 1 and  i 
= N.  Using  the  Lagrange  method  of  multipliers  to  minimize  E,  one  defines 


F 

= E - 

2 Aj  (A  j y 

1 + B1 

m ^ + 

CjMj  - Dx) 

- 2\n 

(ANy«  + 

BN  mN 

+ cnmn  - V 

(B-5) 

which  introduces  two  extra  unknowns,  X] 

and  Am  . Differentiating  yields 

dF 

= 2y  j 

+ 2H(m1 

x mN  - 

- 2m) 

- 2A,  A,  = 0 

3>'l 

11 

(B-6) 

d F 

= 2yN 

- 2H  (mj 

+ mN 

- 2m) 

- 2An  An  = 0 

(B-7) 

JJL 
dm , 

= 2H 

2 (m1  - 

- m)  + 2H 

3 CM  | T 

mn  - 

- 2M)  - 2B j Aj  = 0 

(B-8) 

dF 

dmH 

= 2H 

2(mN  - 

- m)  - 2H 

3(Mj  + 

mn  - 

2M)  - 2BnAn  = 0 

(B-9) 

(B-l) 

(B-2) 

(B-3) 
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ii  = 2H4(M,  - M)  - 2C , A,  = 0 

3M  1 11 

(B-10) 

iUL-  2H4(Mn  - M)  - 2CnAn  . 0 
'n 

(B-l  1) 

d? 

= 2 (A  j y j + Bj  m J + CjMj  - Dj)  = 0 

(B-l  2) 

in 

*an 

= -2(ANyN  + BNmN  + CnMn  - Dn)  = 0 

(B-l  3) 

The  last  two  equations  are  the  equations  of  constraint.  Equations  (B-6)  thru  (B-l  3),  after 
substitution  of  Eqs.  (B-2)  and  (B-3)  for  m and  M,  are  eight  linear  equations  in  eight 
unknowns.  One  can  simplify  the  system  as  follows.  Adding  Eqs.  (B-8)  and  (B-9),  one 
obtains 


HCrtij  + niN  - 2m)  = 1 (Bj  Aj  + BN  AN) 

H 

Substituting  Eq.  (B-l 4)  into  Eqs.  (B-6)  and  (B-7) 

yi  = Ai  Aj  - I (Bj  A,  + Bn  An) 

>N  = AN  AN  + ^B1  X1  + bn  an^ 
Substituting  Eqs.  (B-l 5)  and  (B-l 6)  into  Eq.  (B-2), 

rh  = I (AN  AN  - Aj  Aj)  + JL  (B,  Aj  + BN  AN) 

Adding  Eqs,  (B-10)  and  (B-l  1). 

H2  (M ! + Mn  - 2M)  = _L  (C,  A,  + C.,  An) 

||2  1 IN 

Substituting  Eqs.  (B-l 7)  and  (B-l 8)  into  Eqs.  (B-8)  and  (B-9), 

mi  = H ~ Al  ^ + SN  AN^ 

- I_  (Cl  Aj  + CN  An)  + -L  Bj  A, 

mN  = ^ <AN  AN  “ A1  Al*  T “j  ^B1  A 1 + BN  AN* 

+ <Cl  A1  + CN  AN^  + ~2  SN  AN 
H J H 


(B-14) 

(B-l  5) 
(B-16) 

(B-l  7) 

(B-18) 

(B-l  9) 

(B-20) 
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Substituting  Eqs.  (B-19)  and  (B-20)  into  Eq.  (B-3), 


M “ + CN  + A (B„  - Bj  Aj) 

H H 


Substituting  Eq.  (B-21)  into  Eqs.  (B-10)  and  (B-l  1), 

Ml  = CC,  Ax  + CnAn)  + -L  (Bn  Ak  - Bj  Aj)  + -L  C,  A, 
K4  H r* 

MN  = ~T  (C1  X1  + CN  V + ^3  (BN  XN  “ B1  Xl>  + A CN  XN 

H4  H H 


(B-21) 


(B-22) 

(B-23) 


If  Eqs.  (B-l 5),  (B-l  6),  (B-19),  (B-20),  (B-22),  and  (B-23)  are  substituted  into  Eqs.  (B-l 2) 
and  (B-l 3),  then  they  take  the  form 

All  Ai  + ain  an  = Di  (B-24) 


AN1X1  + anjs  ak  = D 


(B -25) 


where 


An  = 

A2  + 3Bj  + 3C2!  - 2AjBj  - 2Bj  Cj 

(B-26) 

-aibn 

A^Bj  — BjCn  4-  B^jCj  + 2BjBn  +-  2C jCN 

(B-27) 

AN 1 = A IN 

(B-28) 

ann  = 

AN  + + + 2AnBn  + 2BjqC^ 

(B-29) 

B;  = 1 B; 

1 H 

(B-30) 

c.  = 1 c. 

' H2  1 

(B-3 1) 

with  i = 1 and  i = N.  Equations  (B-24)  and  (B-25)  can  be  solved  for  Aj  and  X^.  One  can 
then  obtain  y\ , yn,  mj,  mN,  Mj,  and  MN  from  Eqs.  (B-15),  (B-16),  (B-19),  (B-20), 
(B-22),  and  (B-23).  These  values  determine  the  quintic  which  can  be  written  down 
directly  by  analogy  with  Eq.  (86).  This  is  the  initial  solution  suggested,  for  lack  of  a 
better  approximation. 
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Splines  were  originally  invented  for  interpolation,  and  interpolation  of  spline 
solutions  is  immediately  available.  This,  plus  the  suitability  of  spline  collocation  to  handle 
nonuniform  spacing,  makes  it  feasible  to  change  the  spacing  between  iterations  to 

improve  accuracy. 

Since  smaller  steps  are  needed  where  the  function  changes  the  fastest,  the  following 
procedure  can  be  used.  Consider  straight  line  segments  between  points,  (xj,  y,)  (that  is,  a 
broken-line  solution).  Compute  the  length  of  the  broken  line  and  divide  by  (N-l)  to 
determine  a constant  step  size  along  its  length.  Taking  constant  steps  along  the 

broken-line  solution,  determine  the  new  x,.  Interpolation  provides  the  new  in-hand 
solution  for  the  next  iteration. 

Figure  C-l  illustrates  the  respacing  technique  with  N = 6.  Beginning  with  equal 
spacing,  the  old  solution  is  marked  by  the  heavy  dots.  The  new  spacing  is  determined  by 
taking  equal  steps  along  the  broken  line,  marked  by  the  symbol  "A”.  The  new  solution  is 
obtained  by  interpolation  at  the  new  x,  and  is  marked  by  the  symbol  Note  the 

shorter  h,  at  the  ends,  where  the  function  is  changing  the  fastest,  and  the  longer  h,  in  the 

middle,  where  the  function  is  changing  the  slowest. 
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APPENDIX  D 

MODIFICATIONS  TO  RUN  THE  EXAMPLE  PROBLEMS 

MODIFICATIONS  TO  RUN  EXAMPLE  2 

-INS  1740  1 

DIMENSION  YB(23),FB< 281,53(28)  2 

COMMON  /ENDS/  G1  3 

COMMON  /FIXED/  ND1M, JCASE  * 

COMMON  /PARM/  PAI7 1 .FAIT  I ,XA(28 ) ,YA( 7, 28  > 5 

-REP  1900.1900  b 

M=  1 5 7 

DO  14  K= 16,28  a 

IF  (YAC JCASE. K ) .EQ. 1 .DC > GD  TO  16  9 

14  N = M+ 1 10 

M=2S  11 

16  CALL  QUINTS  (N.X.Y.F .S.M.XA, Y3 i FB. S9 ) 12 

CALL  ERROR  (FA ( J CASE 1 .F ( 1 > , E A < 2 > ) 13 

DO  3 0 K—  1 . M 14 

CALL  ERROR  (YA( JCASE ,K > ,YB(K ).E( 1) > IS 

DO  20  J—  I , 1 16 

—REP  2310.2350  17 

COMMON  /PARM/  PA(7 ) ,FA(7).XA( 28) . YA< 7,28)  la 

DIMENSION  XNI7)  19 

DATA  XN/8.D0 ,7. DO.  6 . 500,  t>.  DO  , 5 . 5D0 .4.800.3  .DO/  29 

IF  ( JCASE. GT .7 ) GO  TO  590  21 

IF  ( JCASE. GT.l)  GO  TO  30  22 

CALL  LABELS  ( L AB . 3 6MEX AMPLE  2 23 

CALL  LABELS  (L AB<1 0 ) .36HFALKNER-SK AN  C QUAT ION  24 

READ  (5,  SC  01)  PL, PA  25 

READ  1 S. SO  91)  FL.FA  26 

DO  1 0 K-  1 , 2 8 2 7 

10  READ  (5,5C03>  XA{ K 1 . I Y A { J . K ) . J = 1 , 7 ) 26 

DO  15  K— 16,28  29 

DO  15  J-5.7  30 

IF  (YA1J . K ) .53.0.00 1 YA(J,K|=1 .DO  31 

15  CONTINUE  32 

CALL  PAGER  (100)  33 

"RITE  16.6001)  PL. PA  3A 

WRITE  <6,60011  FL.FA  35 

WR ITE  (6,60021  36 

DO  20  K=l,2B  37 

20  WRITE  (6,6003)  K.XA(K) . ( YA ( J.K) .J-1.7)  3S 

30  CONTINUE  39 

-REP  2450.2460  40 

JOUT  — 20  41 

LPRNT-0  42 

-REP  2590  43 

DN=t.DO  44 

-INS  2610  45 

WRITE  (6,6004)  PA( JCASE)  46 

-REP  2720  47 

X< N)=XN( JCASE)  48 

-REP  2740  49 

A=3.D0  59 
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modifications  to  run  example  ? 

DO  SC  J=L.N  SI 

EX=OEXPl — A*X ( J ) t 52 

V ( J ) -l .DO— EX  53 

F(J)=A«EX  54 

SI J)--EX*A*«2  55 

G( J)=XC3)4<EX-1  .DO  1/A  56 

50  CONTINUE  57 

-INS  2650  58 

5001  FORMAT  ( A4.5X, 7E9. 0>  59 

5003  FORMAT  C&E9.0)  63 

6001  FORMAT  ( 1H 0 , A4 , 5X » 7F 10 .5 > 61 

6002  FORMAT  (1H0.7X.42HX  TIX1  CORRESPONDING  TO  ABOVE  K VALUESI  62 

6003  FORMAT  ( 13 . F 7. 1 , 7F 1 0 .5 ) 63 

6004  FORMAT  ( » Z K =<.F 10.5}  64 

-INS  4J40  65 

COMMON  /FIXED/  NDIM.JCA5E  66 

COMMON  /P ARM/  PA(  7)  I FA ( 7 > . XAI28 ) .Y A( 7. 2B1  67 

-INS  4360  68 

P=P  A I J CASE ) 69 

-HEP  4380.4420  70 

alfaiji=gij)*fiji-p*ci.oo+v(ji**2>  71 

BET  A! J ) = 2.D0*P*r( J ) 72 

GAMAI J ! = -G< J 1 73 

fcRSAl J 1--F< J | 74 


I 
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WOOl F I CA  T I ON  S TO  RUN  EXAMPLE  3 

-IN5  1740  1 

COMMON  / PARM/  Pi Q 2 

-REP  18  JO,]  85  0 3 

Z=DEXPC-Q*X( K) ) 4 

A(1»=Q*Z  5 

A l 2 ) =—  04  A ( 1 } ft 

AC3)=-Q*A(2>  7 

A<  4 1 = 1 .DO-Z  a 

E<  1 )=DAHS(  A(  1)-Y(K  ) > 9 

E(2)=DABS< A(2>-FCK>)  |0 

EC3)=DABS( A( 3)-S(K ) ] j| 

EC4J=DABS< A[4)-G1K) ) 12 

-INS  2300  13 

COMMON  / PARM/  P,Q  14 

-REP  2320  15 

IF  CJCASE.EO.l)  GO  TO  20  16 

IF  (JCASE.E0.2)  GO  TO  10  17 

1=  UtASE.GT.3)  GO  TO  550  18 

P=  . 1 DO  19 

G3  TO  30  20 

10  P=.OIOO  21 

GO  TO  30  22 

20  P=.001D0  23 

3C  Q= l 1 . DO-DSQHT ( I .DO- 4.D04P ) >/C 2.D04P ) 2* 

-REP  2340. 23S0  25 

CALL  LABELS  CL AB  , 36HEXANPL E 3 26 

CALL  LABELS  C L A6I 1 0 > . 36HV I SCOELA ST IC  FLUID  27 

-REP  2550  28 

D1 =Q  29 

-INS  2b 10  33 

WRITE  C6.700)  P.Q  31 

-REP  2720  32 

XIN)=12.D0/Q  33 

-REP  2740  34 

DO  40  J=l.N  35 

¥<JJ=1.00  36 

F( J)  = 1 .DO  37 

SCJ»=1.00  38 

40  G(J>=l.D0  39 

-INS  2890  40 

700  FORMAT  (4HOK  = , 1 PE  12 .4 . 5 X. 8HL AMBDA  =.£12.4)  41 

-INS  4340  42 

COMMON  / PARM/  P.Q  43 

-REP  4380.4410  44 

ALFACJ)=0.DO  45 

BETA ( J )=— 1 .DO/P  46 

GAMAI J ) = B£T AC J ) 47 

-REP  6750.6780  48 

DC  3 ,N, 4 ) = I .DO  49 

-REP  6810  50 

RC3,N)=1.D0  SI 
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MODIFICATIONS  TO  NUN  EXAMPLE  A 
-REP  1740 

OJ  MENS  ION  XA t 31 . YA( 3 ,2 1 , Y3C  3) , FB (3 1 , SB ( 31 ,EA<4  > , KA<4 J 
COMMON  /FIXED/  ND [Mi JC ASE 
DATA  XA/O.DO,. EDO, 1 .DO/ 

DATA  Y A/  .6  20  04  200,  . 4 73  1 4 33  0 . .4  l 841  50  0 . . 9 0540  73  0 ..  5 3264  600  . . 3 3 J965D 
1 0.  .9W  06 SDO. .55918300, .30747600/ 

-REP  1800,1950 

CALL  3UINT5  (N,X,Y,F«S,3,XA,YO,FB,S8) 

DO  20  J- 1 . 3 

20  CALL  ERROR  (VA<J,JCASE)»VB(J),EA(J1) 

-INS  2300 

COMMON  /FARM/  P 
DIMENS  ION  PA  < 3 ) 

DATA  P A/ 1 . DO, . 1 DO, . OOIDO/ 

-REP  2320 

IF  (JCASE.GT.3)  GO  TO  590 
P=PACJCA5EI 
-REP  2340.2350 

CALL  LABELS  ti_  AB  .36HEXAMPL  E 4 
CALL  LABELS  (L ABC  I 0)  .36HCHEM ICAL  DISPERSION 
-REP  2450,2460 
JOUT  =20 
LPRNT=  I 

-REP  2530.2590 
HI  =-p 
C t =0 .00 
01  = 1 .DO 
AN=C .DO 
0N=1  .0  0 
CN=0 .DO 
ON=0 .DO 
-IN5  26  10 

WRITE  (6.6004)  P 
-REP  2720 

X<  N) =1  .00 
-INS  2890 

6004  FORMAT  ( *0K  ='.F10.5> 

-INS  4340 

COMMON  /PARM/  P 
-REP  4380,4410 

SETA< J 1=1 . 25O0/(P*< 1 .DO  + .l 00*Y( J I 14*2) 

A_FA(Jl=.lO0*BETAC J1*Y(J>**2 
GAMA  I J 1=  1.  DO/P 


1 

2 

3 

4 

5 

6 
7 

a 

9 

10 

tl 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
2B 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 
4] 

42 

43 
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MODTF  [CATIONS  TO  HUM  EXAMPLE  5 

-REP  1741  L 

DIMENSION  XA < 201  . YA [ 20 I ,YB<  201  .OMI 20)  2 

OAT  A KA/1.59,  l,2DO.L.AD3,1.6D0.1.eDn,2.0Q9,7>.;>no.?.4  00.?.6  00,2.8DO  3 

1.3.  on  o.  3. ?o ',3.  40'i4.d7.;.d:/  a 

DATA  ^A /l. 0-3  ». 71400,  . 4371 9 0. . 314  6D0,.  1397  DO. .1039  DO,  .0475D0  ,.01340  5 

19,- .O6ES00.- .07  8 50  0.  - .019  20  0,-.  01  920  0 .-.0131  DO  . - .0131  DO  ,-.0063  00/'  6 

-REP  ■ 770. ' 939  7 

CALL  QUINTS  (N.X.Y.F, 5.15. XA.YB.DM.QWl  3 

KRITf  (F.4001  9 

no  so  j=i. » = io 

D=YA< J >-Y0( J ) 11 

WRITE  (6.4191  J .XA( J 1, YA ( J) ,Y0( J1 .0  12 

50  continue  13 

RETURN  14 

400  FORMAT  ( • 9C0MP AP  I SOM  OF  SOLUTION  WITH  TABLE  IN  REF  7 1 ✓ 1 HO .8X . 1 H J . 8 15 

1 X,  1 NX.  ( X.  2HYA.  ax.  2HYO,  dX.  4HD  IFF  I 16 

419  FORMAT  < I19.F10. 1.3F19.4)  17 

-REP  2340,2350  18 

CALI.  LABELS  (LA0.36HEXAMRLF  5 19 

CAl  L LABELS  (LA«(  K } .36H1NHERENTLY  UNSTABLE  PROBLEM  20 

-REP  2450, 2460  21 

JOUT=20  22 

LPRNTs 1 22 

-RF°  2 559  24 

01=1.  do  \ 25 

-RE”  2 599  26 

DN=1 .09  27 

-REP  2710.2720  28 

X(  l 1=1. DO  29 

AIN  1=29. D-9  30 

-REP  4380.4410  31 

ALF At J ) = L .00/1 1 .007X1 J ) 1 32 

BFTAI J )-X(  J )**?  33 

GAM  At J 1=0.03  34 
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MODIFICATIONS  TO  RUN  ^XAMPLE  6 

-INS  1740  1 

COMMON  /"ABU/  P ,PS  ,PI  , IP  *C  1 *C2  2 

-INS  ’ 790  3 

E1=DEXP(-P)  * 

0= I .DOTE I . 5 

C0=  < I .DO-E1  I /(P+D  I f> 

-REP  1 810. 1899  7 

El=Pt*XIK)  8 

CX=DCOSIEl 1 9 

SX=0S1N(£11  10 

CC=CX**2  1! 

CS=CC*SX  12 

E1=0EXPCP*( XIX J- 1 .09 i > 13 

E2=DEXPI -P* X( K 1 I 1* 

Sl=(EUF21/[> 

S2=(F’-E2»/Q  1& 

A<  1 1 = S 1-CC  12 

Am-P*S2»TP*CS  18 

AI ? |so$»Sl +2 «D0*C2*CC-C 2 19 

AI4I=S2/P-CS/TP-.SD0*X<  KM-CO  20 

El  1 ) — O A 0 S < A < 1 ) — V l < 1 I 21 

BI 2 >=OABS< AI P»-Ft K > I 22 

El 3>=DABS( Al 31*S(KII  23 

El 4J=DABS(AI A)-G(K) ) 2* 

-INS  2300  25 

COMMON  /PARM/  P ,P5.B1 .IP.Ci .CZ  25 

DIMENSION  PA  I A)  2 7 

DATA  pa/ 1 0 .00. 15 .DO. 20 .0 0 • 25.00/  28 

-REP  2320  29 

IF  IJCASE.GT.l)  GO  TO  10  30 

P1=4.00*DATANI 1 .00)  31 

TP=?.P0*PI  32 

C2=7P*01  33 

10  IF  (JCASE.CT.4)  GO  TO  590  ?» 

P=PA( JCASE 1 35 

PS=P**?  36 

CA=PS+2.D0*C2  37 

-REP  2340*2350  38 

CAIL  LABELS  I LAB  * 3 6 HEX AMPLE  6 39 

CALL  LABELS  (LABI  101. 36H  *0 

-REP  2A50.2460  41 

J0UT=20  42 

L PRNT  = 1 43 

-REP  2590  44 

DN=0.D0  45 

-INS  2610  46 

•RITE  (6*6004)  P 47 

-REP  2720  48 

XlN)=l.O0  49 

-INS  2890  50 
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HOOI F IC AT  IONS  m rum  EXAMPLE  t 

60  04  PORM  AT  ('OK  = *.MS.M  51 

-1N5  4j40  52 

rnxvm  yp  arm / p *ps*pt  ,tp  ,r l .C3  5? 

-RED  ASBO.AAl''  54 

ALFA[J)  = ClAriCrs('’I*X(  J)  ) **3-C?  55 

FETA(J)=PS  56 

OAMA< J )= 0 .OO  57 
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MODIFICATIONS  TO  BUN  EXAMPLE  7 

-INS  1 7*0  j 

COMMON  /P ARM/  Q.SM  ? 

-REP  1810.1850  3 

AG=SR*<  *(<  )-  .500 ) 4 

T A6=  DT  AN  ( A G > 5 

SECS=TAG**?»1.D0  6 

At  2 >= 2.D0*SP*TAG  7 

A(?i=o*srcs  e 

A(4)=G(K.)  9 

At  1 ) = PLC!G<  AO)  J0 

-INS  2300  JJ 

COMMON  /BARM/  Q.SO  J2 

O=.5O0  j3 

00  10  J®1. 1000  J4 

p=0  15 

SR=DSQRTt .SD0*P)  16 

0=OCOSt .5O04SR)**?  17 

IF  (P.EQ.QJ  00  TO  ">0  j8 

10  CONTINUE  ,g 

J=1000  20 

20  CONTINUE  2l 

-REP  ?T4o.?-'50  22 

CALL  LAP  CL  S (L  A H . ’ 6HE  XA  M”LE  7 23 

CALL  LARELS  (L AM ( 1 O I . 2 6M Y • • = F XP  < Y J 24 

-REP  245",2«(>0  25 

J 0UT=  2 0 26 

LPRNT=I  27 

-REP  2500  28 

DN-O.DP  29 

-INS  2610  30 

ARITE  (0.FC00I  J.O.P.O  3. 

-REP  2720  32 

XtN)=l.DO  33 

—INS  2890  34 

6000  FORMAT  t 4 H 0 J =.  I 5. 5K.8HLAMPDA  = , 1 PS2 2 . 1 3 . 1CX .2 Z2P ) 35 

-REP  4380.4410  3£ 

PET  A ( J ) — DEXP<  Y<  J > ) 27 

ALF  AtJ  ) = < I .DO— Y(  J 1 )*«CTA  ( J I 33 

C.AMAl  31  = 0.00  39 
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APPENDIX  E 

PRINTOUTS  OF  THE  EXAMPLE  PROBLEMS 


OC  TODD  COPS 

ARQ0S67J 

10  = 29 

WED  MAY  10* 

19  78 

PROBLEM  FROM 

KAMKE 

NO  t M 

JCASE 

N 

NT  JOUT  LPRNT  LNOftM 

25  0 

1 

SI 

3D 

0 

1 

1 

1 1 

TDL 

RSC 

0.0 

5*  00000-04 

1 *00000-02 

A 

» 

c 

0 

1*OOOOD  00 

0 ,0 

0 .0 

0*0 

1*00000  00 

0*0 

0*0 

7*00000  00 

uniform  spacing  computed 

SOLUTION  GUESSED 

UPDATE 

1 

35  51 

SI 

3. 56  0-01 

2*31 D 15 

4*250 

NEW  SPACING 

COMPUTED 

UPDATE 

2 

34  51 

si 

1*850-01 

1*3  00  00 

2.920 

NEW  SPACING 

COMPUTED 

UPOATE 

J 

38  51 

51 

3.41D-02 

2*760-01 

3*870 

NEW  SPACING 

COMPUTED 

UPDATE 

4 

41  SI 

51 

1*230-03 

1*490-02 

1 .280 

UPDATE 

S 

44  51 

51 

1.250-06 

Z. 710-05 

1*790 

CONVERGED  SOLUTION 

CHE<DE  51 

5*760-10  0 

*0  0*0 

0*0 

CHE<BM  11 

SI  51 

15  5*010-04 

6. 440-04 

1 .200-03 

4 . S2D-04 
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DC  TODD  COPS  AR  0096  71 

problem  FROM  kamke 


X 

Y 

YP 

1 

0 ,0 

0.0 

9.9957D 

-01 

2 

1 .33600 

-5  1 

1 .C 39  3D— 0 1 

1 .0 1 040 

oc 

3 

2 *06080 

-0  1 

2,08960 

-01 

1.04320 

00 

4 

3 *06330 

-01 

3.161  50-0  l 

1 .09950 

00 

5 

4.0  3230 

-0  l 

4,264  ID 

-0  L 

1 . 1 8 1 4D 

00 

6 

4*95660 

-01 

S. 40440- 

-0  1 

1 .291 60 

00 

7 

5.82650 

-0  1 

6.5  86  50- 

-0  1 

1 .4J340 

00 

a 

6*63390 

-ot 

7.8  1 1 7D 

-01 

1 .60990 

00 

9 

7-3  7360 

-01 

9.Q786D 

-01 

l .624  CO 

00 

1 0 

6*044  ID 

-01 

1 .0  3020 

00 

2.07790 

00 

1 1 

8 *6  4630 

-01 

l .1  71  90 

00 

2 .373  53 

00 

1 2 

9*10410 

-0  1 

1 .30830 

00 

2,7  120D 

00 

l 3 

9.5  6250 

-0  1 

L .44680 

00 

3.0939D 

00 

1 4 

1 .0  0B8D 

00 

l .58  7 ID 

00 

3.5199D 

00 

1 5 

1 *04660 

00 

L .728  70 

00 

3.98980 

00 

1 6 

1 *08020 

00 

L .0  7 1 40 

00 

4 .50380 

00 

17 

1 .1 1030 

oo 

2 *01400 

00 

5. 06 163 

00 

16 

1 .1 3720 

00 

2 .15890 

00 

5.663 53 

oo 

19 

1.16140 

oo 

2 .30350 

00 

6.30900 

oo 

20 

1 .1  03  20 

00 

2 *44  8 50 

00 

6 .99683 

00 

2 1 

1 .20300 

00 

2.59300 

00 

7.73213 

00 

22 

1 .2  2090 

00 

2.73950 

00 

8.50963 

00 

23 

1 .23730 

00 

2.8055D 

00 

9.3 3 120 

00 

24 

1 * 2 52  3D 

00 

3.031  70 

00 

1.01973 

01 

25 

1 .26610 

00 

3.1  78  ID 

00 

l .1 1070 

01 

2 b 

1 .2787D 

00 

3.3  24  ID 

00 

1 .20573 

01 

27 

1 .29C3D 

00 

3.4  79  DO 

oo 

L .30493 

01 

26 

1 -301  ID 

00 

3.616  ID 

00 

1 .40850 

0 1 

29 

1 .3  11  ID 

00 

3.7  62  3D 

00 

1 .51t»  43 

01 

30 

1 .3  20  4D 

00 

3.90870 

00 

1 .62880 

31 

31 

1 .3  29  lO 

00 

4.0  551D 

00 

1 .74553 

01 

32 

l .3  37  20 

00 

4 * ? 0 1 60 

00 

1 .86653 

01 

33 

1 .34480 

oo 

4,34810 

00 

1 .991 93 

0 l 

34 

1 .35190 

00 

4.494  80 

00 

2 , 1 2 1 60 

01 

35 

1 .35060 

00 

4.641  3D 

00 

2 .25560 

01 

36 

1 .36490 

00 

4.78790 

CO 

2.39390 

01 

37 

1 .3  7090 

oo 

4 .934-60 

00 

2.5366D 

01 

38 

1 .37650 

00 

5,081  20 

00 

2.68350 

01 

39 

1 .381  80 

00 

5.22790 

00 

2.8349D 

01 

40 

t- 38690 

00 

5.37460 

00 

2.99063 

01 

4 1 

1 .39  1 70 

0-0 

5.521 50 

00 

3.1 5060 

01 

42 

1 .396  23 

00 

5.6685D 

CO 

3,31533 

01 

43 

1 .40050 

00 

S.81S6D 

00 

3.48440 

01 

44 

1 .4  04  70 

00 

5 *963  20 

00 

3.6582D 

01 

45 

2 .40861 

oo 

6.1  1 C 90 

00 

3.63673 

01 

46 

1 . 4 1 2 40 

00 

6.25820 

00 

4 .01900 

0 1 

47 

1.4 159D 

00 

6 .4  0550 

00 

4 .2  05  70 

0 1 

40 

1 *4  19  40 

00 

6 .5  53  20 

00 

4 *39723 

01 

49 

1 .4  22  70 

00 

6.7  01  50 

00 

4.59393 

0 1 

50 

1 .42SSD 

00 

6.85030 

oo 

A.7957D 

01 

51 

1 .4  2890 

00 

7.00000 

00 

5.0 03 2D 

01 

STOP 


10:2?  WED  MAY  10,  1976 


YP  P 

1 

H 

S 

0.0 

0,0 

1 .0363-01 

9.09D-O1 

2.09973 

-01 

5,37400 

-03 

l . 025D-O1 

9. 780-01 

4*35890 

-01 

2.13770 

-02 

1 .OO3D-01 

9.670-01 

6.95070 

-01 

4. 76523 

-02 

9.6903-02 

9.540-01 

1 .C073D 

00 

8.35633 

-02 

9.2443-02 

9*410-01 

1 .39583 

00 

1,28170 

-01 

8.6993-02 

9,2  80- 0 1 

1 .88793 

00 

1.80233 

-01 

6.07  40— D 2 

9*160-01 

2.51490 

00 

2.36263 

-0  1 

7. 4003-32 

9. 060-01 

3 . 3 1 1 SO 

00 

3.0O6SD 

-01 

6.7023-02 

8,980-01 

4.3 1463 

00 

3.6S7SD 

-01 

6.0223-02 

8.930-01 

S, 56310 

00 

4-32230 

-0  l 

5.3783-02 

8. 890-01 

7.0  9693 

oo 

4.98853 

-01 

4.7843-02 

8. 890-01 

8. 9 54 2D 

00 

5.64693 

-01 

4.252 3-02 

8.390-0 1 

1.1 1 75D 

01 

6 .291 23 

-01 

3.7790-02 

8. 91D-0I 

1 .37960 

01 

6.91733 

-01 

3.3660-02 

8.930-01 

1 .6  86  20 

01 

7.52260 

-01 

3.0053-02 

8.960*01 

2.0  40  4 D 

01 

8.10600 

-0 1 

2 .6920—32 

8. 990-01 

2.44630 

01 

8.66  743 

-01 

2*4190-02 

9.020-0 1 

2.9  077D 

01 

9.20670 

-01 

2*1020-02 

9.060-01 

3. 4267} 

01 

9*72493 

-0  1 

1.976D-02 

9.090-0  L 

4.01310 

01 

1.02233 

00 

1 * 796D-02 

9.120-01 

4.6  64  70 

0 1 

1 .07020 

oo 

1 .6380-02 

9.15D-01 

5.36770 

01 

1 .11623 

00 

1*4  990-3  2 

9.1 80-0 1 

6.18603 

0 1 

1 .16060 

00 

1 *3763-02 

9. 1 7D-01 

7.06350 

0 L 

1 .20330 

00 

1 .2620—  0 2 

9, 220-01 

8.02000 

01 

1.24433 

00 

1 *1 63D-02 

9.260-01 

9*06090 

0 L 

1.28380 

00 

1.0783-02 

9*290-01 

1 .01 92D 

02 

1 .321 90 

00 

1.001 D— 0 2 

9 . 310-0 1 

1.14170 

02 

1 .35883 

00 

9.3140-03 

9*323-01 

1.2740 D 

02 

1 .39463 

00 

8.6053-03 

9*350-31 

1 .41640 

02 

1.42910 

00 

9 « 1 163-03 

9.360-0 1 

1 .56940 

02 

1.46260 

oo 

7*6003-0 3 

9.390-01 

1 .73320 

C 2 

1 .49510 

00 

7.1323-03 

9*393-01 

1 .908  40 

02 

1.52660 

00 

6.701 3-03 

9.410-01 

2 .095  ID 

02 

1.55720 

00 

6.3073-03 

9.440-01 

2.29370 

02 

1 .59703 

00 

5.9520-03 

9*440-01 

2*50490 

02 

1*61590 

00 

5.5190-03 

9.463-01 

2.72880 

02 

1*64400 

00 

5.3IBD-03 

9.480-01 

2.96590 

02 

1*67153 

00 

5*041 3—0 3 

9*490-01 

3.2 I66D 

02 

1 .69920 

00 

4. 7833-03 

9.510-01 

3.48130 

02 

1 .72420 

00 

4.550D-03 

9,510-01 

3.76093 

02 

1 .74970 

00 

4.3293-03 

9.540-01 

4,05530 

02 

1 .77450 

00 

4.1320-03 

9.543-01 

4.J6563 

02 

1.79893 

00 

3.9430-03 

9.510-01 

4.6  920  D 

02 

1 .82273 

00 

3.7510-0 3 

9.  560-01 

5,033  40 

02 

1.94593 

00 

3.5840-03 

9.583-01 

S.39I3D 

02 

1.86860 

00 

3*4340-03 

9.61 0—0 i 

5.766  70 

02 

l .69083 

DO 

3.3000-03 

9.610-01 

6.161 OD 

02 

1.91273 

00 

3* 1 71 D-03 

9.640-01 

6.57450 

02 

l .9342D 

00 

3.0560-03 

7,00890 

02 

1 ,95533 

00 
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A ED  C-TR  -78-59 


OC  IDOD  COPS  AR000346  13:38  HON  AUG  07.  19T8 

EXAMPLE  2 FALKNER-SKAN  EQUATION 


K 

-0*  19884 

-0*  1 8000 

0.  0 

0*3000  0 

J- 00000 

2.00000 

10.00000 

FO 

0*0 

0*12064 

0*46960 

0. 77476 

1*23259 

1*68722 

3.67523 

X 

Y<X>  CORRESPONDING 

TG  ABOVE 

K VALUES 

1 

0*0 

0*  o 

0*  0 

0*0 

0*0 

0*0 

0*0 

0.0 

2 

0*1 

0*00099 

0*01  376 

0 . 046  96 

0*07597 

0.11 826 

0*15076 

0*31643 

3 

0*2 

0.00398 

0*  0293  3 

0*  09391 

0* 14894 

0.  22661 

0*29794 

0.54730 

4 

0*  3 

0.00895 

0*04668 

0* 14081 

0*21686 

0.32524 

0.41 854 

0-70496 

5 

0*4 

0*01591 

0. 06582 

0* 18761 

0*28569 

0.41446 

0.52190 

0.81043 

6 

0*5 

0*02485 

0*08673 

0.23423 

0*34938 

0.49465 

0*60964 

0.67954 

7 

0*6 

0*03578 

0.  10937 

0*28058 

0*40908 

0*56  628 

0*68343 

0*92414 

8 

0*7 

0*04868 

0* 13373 

0*32653 

0*46713 

0.62  986 

0*74496 

0*95259 

9 

0*8 

0*06355 

0*  15975 

0*37196 

0*52107 

0.  68  594 

0.79567 

0*97057 

to 

0*  9 

0*  08038 

0* 18737 

0*41672 

0-57167 

0*73  508 

Q.8376  7 

0.96165 

11 

1 . 0 

0*  09913 

0.21651 

0*46  06  3 

0*61890 

0*77787 

0*87172 

0*98880 

12 

1*2 

0*14232 

0 * 27  899 

0.54  52  5 

0*70322 

0.84667 

0.92142 

0*99591 

13 

1*4 

0*  19274 

0*34622 

0.62  439 

0*77425 

0.69661 

0.95308 

0*99856 

14 

1*6 

0*24982 

0*41691 

0*69670 

0.83254 

0*93235 

0.97269 

0*99957 

IS 

1*8 

0.31 271 

0.48946 

0*76106 

0*87906 

0.  95683 

0.98452 

0*99990 

16 

2*0 

0.38026 

0>5620S 

0*81  669 

0*91509 

0.97322 

0*99146 

0*99999 

17 

2*2 

0.45097 

0*63  269 

0.8633  0 

0.  9421  1 

0*90385 

0.99542 

1.00000 

16 

2*4 

0.52308 

0*69942 

0.90107 

0*96173 

0.99055 

0.99761 

1.00000 

19 

2*6 

0*59460 

0.76  048 

0*93060 

0*97540 

0.99463 

0.99879 

1*00000 

20 

2.6 

0.66348 

0. 81 449 

0*95238 

0.9848  0 

0*99705 

0.99940 

1 « ooooo 

21 

3.0 

0*72  776 

0.86061 

0.96905 

0.99068 

0.99842 

0.99972 

1.00000 

22 

3*2 

0* 78576 

0*  89853 

0.9803  7 

0*99471 

0.99919 

0.99987 

1. 00000 

23 

3*4 

0*83635 

0.92854 

0*98797 

0*99704 

0*99959 

0.99995 

1.00000 

24 

3*6 

0.87882 

0.95138 

0*9928  9 

0.99640 

0*  99980 

0.99998 

1.00000 

25 

3*6 

0.9131S 

0*96805 

0*99594 

0*99916 

0*99991 

0.99999 

1.00000 

26 

4.  0 

0.93982 

0*97575 

0.99777 

0*99950 

0*  99996 

1.00000 

1*00000 

27 

4*  5 

0.97940 

0. 99449 

0*99957 

0* 99994 

0.99999 

1.00000 

1*00000 

28 

5*  0 

0.99  439 

0.99997 

0*99994 

0. 99999 

1 *00000 

1.00000 

1.00000 

I 
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AE  DC-TR-7B-59 


AR000346  13:3a  MON  AUG  07,  1976 

FALKNER-SKAN  EQUATION 

K = -0*19884 


oc  rooo  cot»s 

EXAMPLE  2 


N01M  JCASE  N NT  JOUT  LPRNT  LNOH M 

250  I 51  30  20  0 1 


1 I TOL  RSC 


0.0 

S . 0 00 OD— 0 4 

1 

*00000-02 

A 

1«OOOOD  00 

0 

0*0 

0 

c 
• 0 

D 

0.0 

1.0DQ0D  00 

0.0 

0 

*0 

1 *00000  00 

UNIFORM  SPACING  COMPUTEO 

UPDATE 

NEW  SPACING 

1 

COMPUTED 

5 

l 

41 

5.  730-01 

8*810-01 

1*040-01 

UPDATE 

NEW  SPACING 

2 

COMPUTED 

1 1 

5 

SI 

2.690-01 

4.4 10-01 

7.670-02 

UPDATE 

NEW  SPACING 

3 

COMPUTED 

14 

20 

SI 

1 .390-0 L 

2.230-01 

5.140-02 

UPDATE 

NEW  SPACING 

A 

COMPUTED 

16 

23 

51 

6.970-02 

1 . 150—01 

3.050-02 

update 

NEW  SPACING 

5 

COMPUTED 

16 

23 

51 

3.470-02 

5.520-02 

1 *640-02 

UPDATE 

NEW  SPACING 

6 

COMPUTED 

16 

23 

SI 

1.74D-02 

2.730-02 

6*380-03 

UPDATE 

UPDATE 

UPDATE 

UPDATE 

UPDATE 

7 

0 

9 

10 

1 1 

16 

16 

16 

16 

16 

23 

23 

23 

23 

23 

51 

51 

51 

SI 

51 

B. 660-  03 
4*280—03 
2*050-03 
8*  7ID-  04 

2. 450-  04 

1 • 360-02 
6.750-03 
3*  230-03 
1.370-03 
3*860-04 

4.21 D- 0 3 
2*090-03 
1.000-03 
4.270-04 
1. 200-04 

CONVERGED  SOLUTION 

CHEKOE  16 

1 *4  90-06  0 

*0 

0*0 

0*0 

CHEKSM  2 

0 o 

0 

7*690-02 

7* 

I9D-04 

0.0 

0.0 

SOLUTION  WRITTEN  ON  UNIT  20 
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AEDC-TB-78-59 


DC  TODO  COPS  AB  00  0346  13530  NON  A JG  07.  1970 

EXAMPLE  2 FALKNER-SKAN  EQUATION 

k = -o.iaaoo 

NDIN  JCA5E  N NT  JOUT  LPRNT  LNORM 


350 

2 

51 

30 

20 

0 

1 

11 

TOL 

RSC 

0*0 

5 *00000-0 A 

1 *000  OD— 02 

A 

B 

c 

O 

1*00000  oo 

0 *0 

0*0 

0*0 

1*00000  00 

0*0 

0 *0 

1*00000  0 0 

UNIFORM  SPACING  COMPUTED 

UPDATE 

1 

5 l 

46 

5*640-01 

8*730-01 

1*170-01 

NEW  SPACING 

COMPUTED 

UPDATE 

2 

12  6 

SI 

2*450-01 

4.050-01 

a. 10D-02 

NEW  SPACING 

COMPUTED 

UPDATE 

3 

1 6 23 

51 

9*  820-02 

1 ■ 6 1 D — 0 1 

4*190-02 

NEW  SPACING 

COMPUTED 

UP DATE 

A 

16  26 

51 

2 » 09D-  02 

3*590-02 

1 * 05  D— 02 

NEW  SPACING 

COMPUTED 

UPDATE 

5 

19  27 

SI 

1*  02D-03 

1*680-03 

5.55D-04 

UPDATE 

6 

19  23 

51 

2*510-06 

3 *850-06 

1 .40D— 06 

CONVERGED  SOLUTION 

CHEKDE  51 

i*37d-os  a 

*0  0 *0 

0*0 

CHE«CBM  28 

0 0 

0 1*160-03 

5*  4 00- 05 

0*0 

0*0 

SOLUTION  WRITTEN  ON  UNIT  20 
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A EDC-TR-78-59 


DC  TODD  COPS  AHU00346  13:38  MON  AUG  07.  1078 

EXAMPLE  Z FALKNER-SKAN  EQUATION 

K = 0.0 

NDIM  JCA5E  N NT  JOUT  LPHNT  LNORM 


250 

3 

51 

30 

20 

0 

1 

1 1 

TOL 

R$C 

0.0 

5 - 0 00  OD  — 04 

1 <00000-02 

A 

0 

c 

0 

1*000 Ol>  00 

O 

• 

o 

0-0 

o-o 

l.OOOOD  00 

0 .0 

0 -0 

1.00000  00 

UNIFORM  SPACING  COMPUTED 

UPOATE 

1 

5 1 

4 7 

4. 010-01 

9*040-01 

1 .020-01 

t 

NE  M SPACING 

COMPUTED 

UPDATE 

2 

12  5 

51 

1 - 2*0—01 

2. 000-01 

4*140-02 

NEW  SPACING 

COMPUTED 

UPOATE 

3 

17  23 

51 

1* 260-02 

1 *660-02 

5* 1 L 0—0  3 

NEW  SPACING 

COMPUTED 

UPDATE 

A 

20  26 

51 

1*320-04 

1 • 960-04 

5*960-05 

CONVERGED  SOLUTION 

CHEKDE  51  P. 210-06  0.0  0.0  0.0 

CMEXBM  3000  ♦. 37D-0S  3.120-05  0.0  0.0 

SOLUTION  WRITTEN  ON  UNIT  20 
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A EDC-TR  -78-59 


AR00  0346  13:30  MON  AUG  07,  1978 

FALKNER— SK  AN  EQUATION 

K a 0.30000 


OC  TODO  COPS 
EXAMPLE  2 


NDI  M 

JCASE 

N 

NT 

JOUT 

LORNT 

LNORM 

25  0 

4 

51 

30 

20 

0 

1 

II 

TOL 

RSC 

0.0 

5 .00000-04 

l 

1 .00000-02 

A 

e 

c 

0 

1.00000  00 

0.0 

0.0 

0.0 

1.00000  00 

0 .0 

0.0 

1 .000  00 

00 

UNIFORM  SPACING  CDMPUTEO 


UPDATE 

I 

5 

I 

46 

3.91 D—  01 

7. i 70-01 

Q .300—02 

NEW  SPACING 

COMPUTED 

UPDATE 

2 

12 

3 

SI 

5.99D-02 

8.620-02 

l.f9D-02 

NEW  SPACING 

COMPUTED 

UPOATE 

3 

16 

a 

51 

2. 030- 03 

1.920-03 

0.O5D-O4 

UPDATE 

4 

20 

27 

51 

2.430-06 

2.270-06 

1 .070-06 

CONVERGEO  SOLUTION 

CHEKDE  so 

6 .070-09 

0 .0 

0.0 

0.0 

CHEKBrt  2 

0 0 

0 

6.26D-0S 

3.860-06 

0.0 

0.0 

SOLUTION  WRITTEN  ON  UNIT  20 
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AEDC-TR-78-59 


DC  TODD  C1>^S  ARQ0034G  13:38  MON  AUG  OT,  1978 

EXAMPLE  2 FALKNER-SKAN  EQUATION 

K * 1.00000 

NOIN  JCASE  N NT  JOUT  LPRNT  LNOHH 


250 

5 

5 1 

30 

20 

0 

1 

II 

TOL 

nsc 

0 • Q 

5 .00000-04 

1 .OOOOD- 

02 

A 

B 

c 

O 

1.00003  00 

0.0 

0.0 

0.0 

1.0000D  00 

0 .0 

0.0 

1 .000  00  00 

UNIFORM  SPACING  COMPUTED 

UPDATE 

I 

s 

1 

44 

2.69D-01 

5.750-01 

5.460-02 

NEW  SPACING 

COMPUTED 

UPDATE 

2 

1 1 

1 

SI 

2* 1 6D— 02 

3. 280-02 

6.550-03 

NEW  SPACING 

COMPUTED 

UPOATE 

3 

14 

i 

51 

1 .92D-04 

1.860-04 

7. 030-05 

CONVERGED  SOLUTION 

CHEKDE  SI  3.12D-06  0.0  0.0  0.0 

CHECBM  2000  4.620-05  1.09D-05  0.0  0.0 

SOLUTION  WRITTEN  ON  UNIT  20 
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A E DC-T  R -73-59 


DC  T ODD  CDF>S 
EXAMPLE  2 


K = 2*00000 


NOIM 

JCASE 

N 

250 

6 

51 

I L 

TQL 

RSC 

0.0 

S *0  00  0D—  04 

1 .00000-02 

A 

B 

c 

itooooo  oo 

0 *0 

0.0 

1.00D0D  00 

0-0 

0*0 

UNIFORM  SPACING  COMPUTED 

UPDATE 

l 

5 1 

NEW  SPACING 

COMPUTED 

UPDATE 

2 

10  2 

UPDATE 

3 

13  1 

CONVERGEO  SOLUTION 

CHE<0£  51 

3*420-08  0 

.0  0.0 

CHEKBM  2 

0 0 

0 2.420-05 

SOLUTION  WRITTEN  ON  UNIT  20 


AROO 0346  13:30  MON  AUG  07*  19TB 

FALKNER-SKAN  EQUATION 


NT  JOUT  LPRNT  LNDRM 

30  20  0 1 


D 

0*0 

1.00000  00 


39 

1.710-01 

4.300-01 

3.460-02 

51 

7.950-03 

1.250-02 

2.220-03 

51 

0*0 

2.210-05 

Z. 390-05 

/•" 

7.330-06 

1. 83D-05 

0*0 

0.0 
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A E D C-TR  -7B*59 


DC  TODD  COPS 
EXAMPLE  2 


K * ID*  00  0 3 0 


NOI  M 

jcase 

N 

250 

7 

51 

1 1 

TOL 

RSC 

o 

■ 

o 

5 *0  0000—04 

1 *00000—02 

A 

B 

c 

l * 0 000D  00 

0.0 

0.0 

1*00000  00 

0*0 

0.0 

AR00034&  13538  MON  AUG  07.  1970 

PALKNER-SKAN  EQUATION 


NT  JOUT  LPRNT  LNDRM 

30  20  O 1 


D 

0.0 

1*00000  00 


UNIFORM  SPACING  COMPUTED 

3*610-02 

1 • 390—03 
2. 460-08 

CONVERGED  SOLUTION 

CHEKDE  5 1 1*940-08  0*0  0*0  0.0 

CKEKBN  15  O 0 0 1.610-04  2*530-05  0*0  0*0 


UPOATE 

NEW  SPACING 

1 

COMPUTED 

7 

1 

51 

1.1AD-01 

2.31D-01 

UPDATE 

2 

14 

3 

SI 

5*  000-03 

5.240-03 

UPOATE 

3 

15 

1 

51 

8.  89 D- 06 

7*860-06 

SOLUTION  WRITTEN  ON  UNIT  20 


STOP 
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A E DC-TR  -78-59 


DC  r ODD  COPS  AFC00346  13:42  MON  AUG  07.  1978 

EXAMPLE  3 VISCOELASTIC  FLUID 


K = 1.000  OD— 0 3 LAMBDA  = 1.0010D  00 


NO  I M 

JCASE 

N 

250 

1 

si 

I L 

TOL 

RSC 

0.0 

5*0  OOOL)—  0 A 

1 *00000—02 

A 

8 

c 

1*00000  00 

0.0 

0-0 

1.00000  00 

0 .0 

0 *0 

UNIFORM  SPACING  COMPUTED 

UP  DATE 

1 

51  1 

NEW  SPACING 

COMPUT  ED 

UPDATE 

2 

51  30 

update 

3 

0 o 

CONVERGED  SOLUTION 

CHEKDE  10 

1*810-12  0 

« 0 0.0 

CHEKB*  5 1 

so  si 

50  I.29D-03 

T JOUT  LPBNT  LNOftH 

o 0 1 1 


.001  00  00 
.0  0 0 00  00 

1 1.00D  00  2.003  00  l.OOD  00 

30  5.  14D-04  3.030-03  1.92D-05 

0 0.0  0.0  0.0 

7.00D  00 
I.03D-03  2.59D-01  1. SOD-OS 
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A E DC-TR  -78-59 


OC  root)  C 0°  S AK0003AS  WON  AUG  07,  197a 

EXAMPLE  3 VISCOELASTIC  FLUID 


X 

Y 

1 

0 .0 

1 .00  1 00  0 0 

z 

1 *82420 

-C  1 

8 .33980-0 1 

3 

3*76910 

-0  1 

6 .86390-0  1 

4 

5 *837  ID 

-0  1 

5.5B1 03-01 

5 

8 - 0 1 3 83 

-0  1 

4.48760-01 

& 

1 *02760 

oo 

3*579 10-01 

7 

1 .26000 

00 

2*83520-01 

B 

1 .496  7D 

00 

2*2  38  2D—  0 l 

9 

1 « 7 36  20 

00 

1 *76000-0 1 

1 0 

1 .9  77SD 

oo 

1.38350-01 

l 1 

2*2  199D 

00 

1 *084  ID-01 

1 2 

2*4  63  00 

00 

B * 5 1 3 40— 0 2 

1 3 

2 *70660 

00 

6 .65600-02 

i 4 

2*95040 

00 

5. 2 3090-  02 

1 5 

3*1  94  40 

00 

4 .07960-02 

16 

3.4  38  50 

00 

3.214 10-02 

17 

3.6  82  70 

00 

2 .496  00-02 

1 8 

3.92690 

00 

1 .977  JO-02 

19 

4 * i 7 1 2D 

00 

1 .S24S0-02 

20 

4.4  1540 

00 

1 *2  1 9 2D— 02 

2 1 

4*65970 

00 

9 • 2 78  60— 0 3 

22 

4*90400 

00 

7.55440-03 

23 

5.1  48  20 

00 

5.606  ID-03 

24 

5.39250 

00 

4.722 IU-*3 

25 

5*63680 

00 

3*341 5D-03 

26 

5*681  ID 

00 

2.99QBD-03 

27 

6.1  2530 

00 

1 • 9 38  3D— 0 3 

28 

6 .36960 

00 

1 *957  7D-0J 

29 

6 .6 1390 

00 

1 .061  2D— 03 

30 

6 *85820 

00 

1 .3371 D— 03 

3 1 

7 • 1 0250 

DO 

5*041 00-04 

32 

7.J46  70 

00 

9*  7 7250-04 

33 

7 .59100 

oo 

1 .4037D-O4 

34 

7.83530 

00 

7 ■ 802  80— 0 4 

J5 

8.0796D 

00 

-1  .081  20-04 

36 

B. 3 23 80 

00 

6 .868  10-04 

37 

8. 568  ID 

oo 

-2*89790-04 

38 

6.8 1240 

oo 

6*609  10-04 

39 

9.05670 

00 

-4.34V0D-04 

40 

9.301 00 

00 

6*8  L 1 90-04 

4 i 

9 *54520 

00 

-5.62680-04 

42 

9*78950 

00 

7 .35250-04 

43 

1 .00340 

0 1 

— 6 ■ 0S68D—O4 

44 

1 .02780 

0 1 

8 . I 6280-04 

45 

1 .0  5220 

0 1 

-8.1 2480-04 

46 

1 .076  70 

0 I 

9*2 1 09O-D4 

* 7 

1.10110 

0 1 

— 9 .49360-04 

48 

1 .12550 

0 1 

1 .04S8D-C3 

49 

1 .14990 

0 1 

-1*10130-03 

50 

1 . 1 7440 

0 1 

1 *20010-03 

5 1 

1 .1 9880 

□ ] 

-1 .279 3D- 03 

YP 

VPP 

1 

H 

S 

-1.00200  00 

1*0  0823  00 

0.0 

1 *8240-01 

1*073 

00 

-8.34010-0  1 

8.30440-0  L 

1 *66900-01 

1*9450-01 

1.060 

Oo 

-6.87090-01 

6.93660-0 1 

3*14280-01 

2.068D-01 

1*053 

oo 

-5.5865D— 01 

5*53140-01 

4.425 10-01 

2* 1 77D-01 

1.040 

00 

— 4 .49223—0 1 

4 * 564 3D -0 1 

5*51660-01 

2 . 26  2D  — 3 1 

1.033 

00 

-3.58260-01 

3.5  1450-01 

6.42510-01 

2*3240-01 

1.020 

00 

-2.83B1D-0 1 

2 .9  1923-01 

7.16723-01 

2*3670-01 

1*010 

00 

— 2 *24030—01 

2.1 5890-01 

7.764B0-01 

2. 3950-01 

1.01D 

00 

- 1 . 7ol  00-01 

l *85390-01 

8*24130-01 

2*4130-01 

1 .000 

00 

- 1 .38400-01 

1 *28940-01 

8.61873-01 

2*4240-01 

1*003 

00 

-1  .08530-01 

1 .1 9050-01 

8.91630-01 

2*4310-01 

K *003 

00 

— 8 .52  080-02 

7. 41270-02 

9. 1 5040-01 

2.4360-01 

1 .000 

00 

-6  .66390-02 

7.86990-02 

9,33430-01 

2*4380-01 

1 *003 

00 

-5  .23480-02 

3.95380-02 

9*47850-01 

2.4400-01 

1*003 

00 

-4.086  10-02 

5.46980-02 

9.59150-0  L 

2.4410-0 l 

1.000 

oo 

-3.21530-02 

1 .73030-02 

9*68010-0 1 

2.4420-01 

1*003 

00 

—2  .50090-02 

4.09240-02 

9.74950-01 

2*4420-0 1 

1 *300 

OD 

-1  *9  7 7 40  - 02 

2*74960-03 

9*  80383-0 1 

2.4420-OL 

1*003 

00 

-1  *52830  — 02 

3. 35850-02 

9.84640-01 

2*4430-0 1 

l -003 

00 

-1  .21650-02 

-7*4  1900-03 

9.07973-01 

2*4430-0 l 

1.000 

00 

—9  * 3 0690  — 0 3 

3*03630-02 

9.90580-01 

2*4430-0 l 

1.003 

00 

-7*53940-03 

-l  .50290-02 

9.92630-0 1 

2 . 4430-0 L 

1*000 

00 

-5.636  00-03 

2.98610-02 

9*94230-01 

2*4430-01 

1 *003 

00 

— 4 * 70080—0  3 

-2. 1 2750-02 

9.95480-01 

2*4430-0 1 

1*003 

00 

-3*37280-03 

3.1 2480-02 

9. 9646D-0 1 

2*44  3D— 0 1 

I .000 

00 

-2*97190-03 

-2  *69250—02 

9*97233-01 

2.4430-01 

1.003 

oo 

- 1*97240-03 

3 *4  0500-02 

9*97830-01 

2.44  3D— 0 1 

1 * 000 

00 

-l  .92520-03 

-3*24630-02 

9. 96310-01 

2*4430-01 

1.000 

00 

-1 *09920-03 

3.601 50-02 

9.98670-01 

2*4430-01 

1 *003 

00 

-1  *29880-03 

-3 .83000-02 

9. 98970-01 

2*4430-01 

1 * 003 

00 

-5.47130-04 

4.30300-02 

9*99190-01 

2*4430-01 

1.000 

00 

-9.326 10-04 

-4  .464  00-02 

9*99370-01 

2.4430-01 

I . 003 

00 

-1 . 894  SD  — 04 

4 .90000-02 

9 ■ 99SCD— 0 1 

2.4430-01 

1*003 

00 

-7.28560-04 

-5*1 718D-02 

9.9962D-0 1 

2.4430-01 

1.003 

00 

5.191 20-05 

5.621  20-02 

9.99700-01 

2.4430-0 1 

1 *003 

00 

-6.2  70 70 -04 

-5*97310-02 

9.9977D-01 

2.4430-0  1 

1.003 

00 

2*252  7D-04 

6.45250-02 

9.998  13-0  1 

2.4430-0  1 

1*  003 

oo 

-5.92043-04 

-6.80700-02 

9*99860-0 1 

2*4430-0 l 

1*003 

00 

3 .6  0 75}  — 94 

7*41560-02 

9*99690-0  1 

2*4430-0 1 

1*303 

00 

-6. 018SD-04 

-7*93330-02 

9.99923-0 l 

2.4430-01 

1*003 

00 

4 .774  0D-04 

8*52790-02 

9.99930-01 

2*4430-01 

1*003 

00 

-6.43890-04 

-9. 1 3530-02 

9.99960-01 

2 .4430-01 

1*000 

00 

5.075  7D“ 04 

9.0 1040-02 

9*99960-01 

2. 4430-01 

1*000 

00 

-7.111 2D-04 

-1*05160-01 

9.99903-01 

2*4430-01 

1.000 

00 

6*99600-04 

1 *1 2880-01 

9.99970-0 l 

2.4430-01 

1*003 

00 

-8.00050-04 

-1.2  J040-01 

9*99990-01 

2* 4 4 30—01 

1 .000 

00 

8*194  70-04 

1 *29890-01 

9.99960-0 1 

2*4430-01 

1 *003 

00 

-9*094  80-04 

-1 .39310-0 l 

1 .00000  00 

2*4430—0 l 

1 *000 

00 

9.51860-04 

1.4  9470-0 l 

9.99990-01 

2. 4430— 0 1 

1*000 

oo 

-1 *03970-03 

-1  .6 0380-0 1 

1 .ooooo  00 

2.4430-01 

1 .021 70-03 

2.5  7530-01 

1 -00003  00 
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DC  TODD  COPS  AROO  0346  13S42  HON  AUG  07,  1978 

EXAMPLE  3 VISCOELASTIC  FLUID 


K “ I ,000  OD— 02  LAMBDA  =•  1,01020  00 


NDIM 

JC  AS  E 

N 

NT 

JOUT 

LPRNT 

250 

2 

S 1 

30 

o 

1 

11 

TOL 

RSC 

0*0 

5.00000-04 

1 *00000—02 

A 

8 

c 

D 

1.0  00  CO  00 

0,0 

0.0 

1 *01020 

00 

1*0  0 OOD  00 

0,0 

0*0 

7.000  OD 

00 

UNIFORM  SPACING  COMPUTED 

UPOATE  1 51 

NEK  SPACING  COMPUTED 
UPDATE  2 8 

CONVERGED  SOLUTION 


I 1 1 . OOD  00  2,020  00  l.OOD  00 

3 3 4, 270—05  2.S2D-04  2.090-06 


CHEF  DE 


26  8.060-13  0.0 


0-0  7.  OOD  00 


CHEKBM  2 


7 3-75D-05  5. 630- OS  5.63D-03 


I .070-05 
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DC  T ODD 

CDPS 

AROO  03  4 6 13:42 

MON  AUS  07, 

1978 

EXAMPLE 

3 

VISCOELASTIC  FLUID 

X 

r YP 

YPP 

i ; 

H 

5 

1 

0 .0 

1.01020  00  -1 .02060  00 

1*03660  00 

0.0 

1.79*0-01 

1*073 

00 

2 

1 .79390 

-0  1 

8.4280D-01  —8.513  50—  0 1 

8.553  13-01 

1,65750-01 

1.91*0-0 1 

1*060 

00 

3 

3.7077D-01 

6 .946 OD— 0 1 -7.01740-01 

7,1 370D- 0 1 

3.  1 2*10-01 

2,0360-01 

1.050 

00 

4 

5.74S2D 

-01 

5.65430-01  -5.71163-01 

S,7264D— 01 

4.40320-01 

2.148D-0 1 

1*043 

00 

5 

7.093OD 

-0  1 

4.5509D-01  -4.59780-01 

4 .68090-0  1 

5,49490-0  L 

2 ,2353—0 l 

1*030 

00 

6 

2 .0 128D 

00 

3 » 63  L 5D  — 0 1 -3.66823-01 

3*664  ID-0  1 

6,40560-01 

2.2990-01 

1. 020 

00 

7 

1 .24250 

00 

2.8  7 8 3D—  0 1 -2. 90610-01 

2.9  7900-0 1 

7. 1 5060-01 

2,3*30-01 

1*010 

00 

8 

1 . 4 77 ID 

00 

2.272  ID-01  -2 .29490-01 

2.27870-01 

7.75120-01 

2.3720-01 

1*010 

00 

9 

1 .7 1430 

00 

1.7S74D-01  -1.80600-01 

L .66330-01 

8.23050-01 

2.3910-01 

1*000 

00 

10 

1 .9534D 

00 

1*404  3D  — 0 1 -L. 41030-01 

1 .39530-01 

8.61 020-01 

2.4030-01 

1 .000 

00 

1 1 

2 . 19370 

DO 

1.1O12D-0I  -1.11283-01 

1 .1608D-0 1 

8*90970-01 

2,4200-01 

I.DOD 

09 

1 2 

2 .434  70 

00 

8*637 OD— 02  -6. 72160-02 

8.45610-02 

9. 14540-01 

2,4  2 50-01 

1 .000 

00 

13 

2.57620 

00 

6*76280-02  -6 .83530-02 

7 .25  030  — 02 

9. 33040-01 

2.4 ISD-01 

1 .ODD 

00 

14 

2 .9  1790 

00 

S.3019D-02  -5*35263—02 

5.0727D-0 2 

9.4  75  50-01 

2,4190-01 

1*000 

00 

15 

3.15980 

00 

4.1 40  OD—  02  -4. 19360-02 

4,56180-02 

9*56920-01 

2.4290-01 

I.OOD 

00 

15 

3 .40190 

00 

3,25240-02  -3.28240-02 

3. 00030-02 

9.67830-01 

2,4210-01 

1*000 

00 

I 7 

3 .644  00 

00 

2.5  42  7D—  02  -2. 57170-02 

2*90470-02 

9,7481 D— 0 1 

2.4210-01 

I.OOD 

00 

15 

3.856  ID 

00 

1 . 99490-02  -2.0 12  20  — 02 

1 ,735 13- 02 

9. 80280-01 

2.4220-01 

1.000 

00 

1 9 

4. 1 28  3D 

00 

1. 558  10-02  — l .57700  — 02 

] .80220-02 

9.84560-01 

2.4220-01 

1.000 

00 

20 

4.37050 

00 

1.22370-02  -1.23340-02 

9*652  60— C 3 

9*87910-01 

2.422D-0 1 

1.000 

00 

2 l 

4 .6  127D 

00 

9.54500-03  -9,66990-03 

1 ,24950-02 

9.9054D-0I 

2.4220-0 1 

I.OOD 

00 

22 

4.854 90 

00 

7.50850-03  -7.5584D-03 

4 -98B8D— 03 

9*92590-01 

2.4220-0 l 

I.OOD 

00 

23 

5.097  ID 

00 

5.8  44  7D— 03  -5.93030-03 

8.56150-03 

9,9*200—0 1 

2.422D-0 1 

1*000 

00 

24 

5 .3393D 

00 

4.60930-03  —4.6  31  1 D — 03 

2. 1 8270-03 

9.95460-01 

2. *220-01 

1.000 

00 

25 

5.581  5D 

00 

3.5767D— 03  -3.6377D-03 

6*  0 906D-O3 

9.96*50-0 1 

2.422D-0 1 

1.000 

00 

26 

5.8237D 

00 

2 .8  J I 60  — 03  -2.8368D-0 3 

5. 1 2513-04 

9,97220-01 

2,4220-31 

1.000 

00 

27 

6 .06590 

00 

2.186  70-03  —2. 232  ID— 0 3 

4,5*010-03 

9. 97020-01 

2.4220-01 

1.000 

00 

28 

6 .308  ID 

00 

1.74150-03  -1.73690-03 

-4.64210-04 

9.98300-01 

2*4220-0 1 

1 ,ooo 

00 

29 

6 .5  503D 

00 

1.33500-03  -1.3703D-0J 

3*53900-03 

9.90670-01 

2. 4220-01 

1.000 

00 

30 

6 .79250 

CO 

1 *073  OD— C 3 -1.0628D-03 

-1 .0  1850-03 

9.9896D-01 

2,4220-01 

1.000 

00 

3 l 

7.034  7D 

00 

8.131 20— 0 4 -6.4195D-04 

2*68210-03 

9.99190-01 

2.4220-01 

1 • 000 

□ 0 

32 

7.27690 

00 

6*62820-04  -6.4966D-04 

-1  .3  1640-03 

9,99360-01 

2.4220-01 

1.000 

oo 

33 

7.519ID 

00 

4.93530-04  -5.1  7920-04 

2. 43870-03 

9,99500-01 

2*4220-01 

1 .000 

00 

34 

7.761  30 

00 

4,111 OD— 0 4 -3.96510-04 

-1  * 4594 D — 03 

9.996 1 D— 01 

2.4220-01 

1.000 

00 

35 

8 .00350 

00 

2,9  79  OD— 04  -3.1919D-04 

2*12860-03 

9.9  9 7 00-01 

2.4220-01 

1*003 

00 

36 

fi  .24570 

00 

2*56320-04  -2.4142D-C4 

-1,50990-03 

9 .99760— 0 1 

2.422D-01 

1 .ODD 

00 

37 

6. 4 8790 

00 

1,78240-04  -1.97260-04 

1 .90220-03 

9.99020-01 

2.4220-01 

1.000 

00 

38 

0.73010 

00 

1.61500-04  -1*46450-04 

-1 .5056D-03 

9.99860-01 

2.4220-0 1 

1.000 

00 

39 

0.97230 

00 

1.05140-04  -1.22430-04 

1 .7294D-03 

9*99890-01 

2.4220-01 

1*000 

00 

*0 

9.2  1450 

00 

1.030  ID-04  -8*53143-05 

-1.4699D-03 

9.99920-01 

2,4220-01 

1.000 

00 

41 

9 .45670 

00 

6.0  55  80—05  -7*64700-05 

1 .591 20-03 

9.99940-01 

2.422D-01 

1.000 

oo 

42 

9*6  96  90 

00 

6 *69280—0  5 -S.  27610-05 

-1.41680-03 

9. 99950— 0 1 

2.4220-01 

1.000 

00 

43 

9.941  ID 

00 

3 *34530—05  -4,82150-05 

1 .4 76 2D- 03 

9.99960-01 

2.4220-01 

1.000 

00 

44 

1 .0t83D 

01 

4. 45920-05  —3,1 0443—05 

-1  ,35480-03 

9.99970-01 

2. *220-01 

1*000 

00 

45 

1 .04260 

C 1 

1.7C47D-05  -3.08L8D-C5 

1 .37710-03 

9.99980-01 

2.4220-01 

1.000 

00 

46 

1 .06600 

01 

3.06960-05  -1*78060-05 

-1.28900-03 

9.99990-01 

2.4220— 01 

1.000 

00 

4 7 

1 .091 OD 

0 1 

7.18740-06  -2, 008  ID- 05 

1 .20940-03 

9. 99990-01 

2.4220-01 

1.000 

00 

46 

1 .1  1523 

01 

2.19  5 50-  05  — 9. 76  0 8D— 06 

- I.2224D-03 

9. 99990—01 

2.4220-01 

1 *OOD 

00 

49 

1 • 1 39  4D 

0 1 

1 .32960-06  -1*34310-05 

l *21020-03 

1 .00000  00 

2. 4220-01 

1,000 

00 

50 

1 .16370 

0 1 

L .6  4 0 70  — 05  —4  . 86  5 3D  — 06 

-1 .16010-03 

l .00000  00 

2. 4220-01 

5 1 

1 .18793 

01 

-2*46900-06  —1  *41  5 80  — 0 5 

1 .662  70-03 

l.OOOOD  00 
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DC  rODO  COPS  AROO  0346  13:42  MON  AUG  07*  1976 

EXAMPLE  3 VISCOELASTIC  FLUID 

K = 1*00000-01  LAMBDA  = 1.1270D  00 

NOIM  JCASE  N NT  JOUT  LPRNT  LNORM 

250  3 51  30  0 1 1 


II  TQL  RSC 

0*0  S *00000—04  ] .00000-02 

A B C O 

1*00003  00  0*0  0*0  1 * 1 2700  00 

1*00003  CO  0*0  0*0  7*00000  00 

UNIFORM  SPACING  COMPUTED 

UPDATE  1 51 

NEW  SPACING  COMPUTED 
UPDATE  2 2 

UPOATE  3 0 

CONVERGED  SOLUTION 

CHEKOE  26  1 *250—1 4 0*0  0.0  7.000  00 

CHEKBM  3 117  2.6SD-05  l«67D-04  1 *67D-03  1 .550-05 


1 1 1.000  00  2*270  DO  1*00D  00 

1 5 2.020-05  5.800*04  4.9/0*06 

0 D 0.0  0.0  0.0 
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OC  TODD 

C DP  5 

AROO  0346 

13:42 

MON  AUG  07* 

1978 

EXAMPLE 

3 

VISCOELASTIC  FLUID 

X 

Y YP 

YPP 

' 1 

H 

S 

1 

0 40 

1. 12700  00  -1  .27000  OO 

1.42980  00 

0.0 

1 .4530-01 

1.070 

00 

z 

1 .4  52  7D-*0  1 

9*56840—0  L '1  .07820  00 

1 .2  1390  00 

1 .51020-01 

1 .5520-01 

1 * 08D 

00 

3 

3.0  044D- 

01 

8.  03320-0  1 -9. 05370-01 

1.02050  00 

2.87240-01 

1 .6750*01 

1.080 

00 

4 

4 .6  7950- 

0 1 

6 .651  2D  — 01  — 7 .49623—  0 1 

8.44940-01 

4 . 09860—0 1 

1*8020-0  1 

1.070 

00 

5 

6.481  5D-0  l 

5 .4  2870—0  L '6.11  850-01 

6.89750-01 

5.1 8330-0 1 

I .9200-01 

1 .040 

00 

6 

8.401 60-0 1 

4.3723D-01  -4.9278D-01 

5. 55500-01 

6.12060-01 

2.0060-01 

1 .030 

00 

7 

1 .040  TO 

00 

3*48770  — 01  -3.93080-01 

4.43100-01 

6*90550-01 

2.0670-01 

1*020 

00 

a 

1 .24740 

00 

2.7630D-01  -3.11400-01 

3.51010-01 

7.54860-01 

2*1100-01 

1*010 

00 

9 

1 • 4 58  50 

00 

2 . 1 78  ID— 0 1 '2.45480-01 

2.76690-01 

8.0675D-01 

2.1400-01 

1.010 

00 

ID 

1 .67240 

00 

1.71130-  01  -1.928  70-  01 

Z.l 7390— 01 

8.481 70-01 

2 * 1 590— □ 1 

1*010 

00 

1 1 

1 .8  6840 

00 

1.34170-01  — I * 512  10—0  1 

1 .70430-01 

8.80960-01 

2.1 710-0 1 

1*000 

00 

IZ 

2.10550 

□ 0 

1.05040-01  -1.18390-01 

1 .33430-0  l 

9.06800-01 

2*1790-01 

L .OOD 

00 

13 

2 .3  2340 

00 

8.21710-02  -9.26090-02 

1.04383-01 

9*27100-01 

2*1840-01 

1*000 

00 

14 

£ .541  70 

00 

6.42440-02  -7.24050-02 

8.1 6070-02 

9.43000-01 

2*1 870-01 

1*000 

00 

15 

2 .76040 

00 

5 .02  1 2D— 02  -S.  65910-02 

6.3  7830-02 

9.5545D-01 

2*1800-01 

1*000 

00 

16 

2 .9  7920 

00 

3.92370-02  -4.4222D-02 

* *98420-02 

9 .65 1 90—31 

2*1890-01 

1*003 

00 

17 

3 .19820 

00 

3.0657D-02  -3.45520-02 

3.89430-02 

9.72800-01 

2*1900-01 

1*000 

00 

i a 

3.4  17HD 

00 

2. 39520-02  -2.69940-0 2 

3.04250-02 

9.  78750—01 

2.190D-01 

1*000 

00 

19 

3 .63620 

00 

1. 87120-02  -2.10890-02 

2.3  7690-0  2 

9.83400-01 

2*1910-01 

1*003 

00 

20 

3.85530 

00 

1*46180-02  -1.64750-02 

1 .85690—02 

9.87040-01 

2*1910-01 

1*000 

DO 

2 1 

4 .0  74  40 

00 

1.1 4200—0 2 -1. 28700-02 

1 .45060-02 

9.89870-01 

2.1910-01 

1*000 

00 

22 

4.2  93SD 

00 

8.92110-03  -1.00540-02 

1 .13320-02 

9.92093—0  L 

2.1910-01 

1*000 

00 

23 

4.51260 

00 

6 .969  ID— 03  -7.85430-03 

•6.832  50  — 03 

9*93820-01 

2.1910-0 1 

1*000 

00 

24 

4*7  31  TO 

00 

5 .444  2D— 03  -6* 1 35 70— 03 

6.91540-03 

9*95180-01 

2.1910-01 

1.000 

00 

25 

4.95080 

00 

4.25290-03  -4. 79310-03 

5.4  0220-03 

9.96230-0 1 

2.1910-01 

1.000 

00 

26 

5.1 6990 

00 

3 .32230—03  -3.74430-03 

4*22020-03 

9.97060-01 

2*1910-01 

1 *000 

00 

27 

S. 3 6900 

00 

2.59530-03  -2. 92500-03 

3.29670-03 

9. 97700-01 

2*1910-01 

1 .OOD 

00 

2a 

5.60810 

00 

2.02^40-03  —2. 20 SOD— 03 

2. 57530-03 

9. 982 1 D— 01 

2. 1910-01 

1.000 

00 

29 

5*82720 

00 

1 .58380—03  -1. 70500-03 

2.01180-03 

9.96600-0  L 

2. 1910-01 

1.000 

00 

30 

6.0  4630 

00 

1. 23720-03  -1.39440-03 

1 .57160-03 

9*96910-01 

2*1910*01 

1.000 

00 

3 1 

6.26540 

oo 

9.66510-04  — 1 .08930-03 

1 *22770-03 

9.  991 50—01 

2.191 0—01 

1.000 

00 

32 

6.48450 

00 

7. 55020-04  —8 .50920—0* 

9.59060-04 

9.99340-01 

2*1910-01 

1.000 

00 

33 

6.70360 

00 

5.89810-04  -6.64730-04 

7.49200-04 

9*  9940D— 0 1 

2*1910-01 

1.000 

00 

34 

6.92270 

00 

4 .6  07  50—04  —5.192  70—04 

5.83270-04 

9*99600-01 

2. 1910-01 

1 . OOD 

00 

35 

7.1 4180 

00 

3 .599  3D— 04  -4.05650-04 

4*57203—04 

9.99690-01 

2*1910-01 

1*000 

Op 

36 

7.361 00 

00 

2.81170-04  -3.16890-04 

3*57160-04 

9.99760-01 

2*1910-01 

1*000 

00 

37 

7 ■ 5 80  ID 

oo 

2. 196  95-04  -2.4  75SD-04 

2.79000-04 

9*99610-01 

2*1910-01 

1.000 

00 

38 

7.79920 

00 

1.71580-04  — 1 .93360—04 

2.1795D-04 

9.99650-01 

2*1910-01 

1.000 

00 

39 

B.O  1830 

00 

1.3  4 0 40-0  4 -1  .5  1 060-04 

1 .70260-04 

9.99690-01 

2*1910-01 

1.000 

00 

40 

8.23740 

00 

1.04710-04  -1.18010-04 

1.33010-04 

9.99910-01 

2* J91D-01 

1*000 

00 

41 

8.45650 

00 

8.17960-05  -9.21860-05 

1.03900-04 

9.99930-01 

2*1910-01 

1*000 

oo 

42 

8.6  7560 

00 

6.3898C— 05  -7.201S>-05 

8.1  1660-05 

9.99950-01 

2*1910-01 

1*000 

00 

43 

8.89470 

oo 

4.99160-05  -5.62570-05 

6*3  4 0 60-05 

9.99960-0 1 

2.1910-01 

1.000 

00 

44 

9.1  138D 

00 

3.89940-05  -4*39470-05 

4*95320-05 

9.99970-01 

2.1910-01 

1*000 

00 

43 

9 • 3 32  90 

00 

3.0*610-05  -3.43300-05 

3*86930-05 

9*99980-01 

2.1910-01 

1.000 

00 

46 

9.5  52  00 

00 

2.37960-05  -2.681 80- OS 

3.02260-05 

9.99990-01 

2.1910-01 

1*000 

00 

47 

9.771 10 

00 

1 .85890-05  -2.09500-05 

2*36120-05 

9*99990-01 

2*1910-01 

1*000 

00 

48 

9.99030 

00 

1.45210-05  -1 .63660-05 

1 .64460-05 

9*99990-01 

2*1910-01 

1*000 

00 

49 

1*0  209D 

0 1 

1.13440-05  -1*27850-05 

1 *44090-05 

1*00000  oo 

2.  1 910-01 

l.QOD 

00 

50 

1 .04280 

01 

8.86150-06  -9.98730-06 

1 *12570-05 

1*00000  00 

2.1910-01 

51 

1 .06480 

01 

6.92260-06  -7*79960-06 

8. 77030-06 

1*00000  00 

STOP 
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AEDC  TR-78-59 


AR000346  13  1A5  MON  AUG  07»  1970 

CHEMICAL  DISPERSION 

K = 1.00000 


DC  TOOO  COPS 
EXAMPLE  4 


ND1M  JCASC  N 

250  t 51 


NT  JOUT  LPRNT  LNORH 

30  20  1 1 


II 

0.0 


TOL  PSC 

S.OOOOD-04  1.00000—02 


ABC 
L.OOOOD  00  -1.0000D  00  0.0 

0.0  1 *00000  00  0.0 


D 

1.0  00  OD  00 
0*0 


UNIFORM  SPACING  COMPUTED 


SOLUTION  GUESSED 


UPDATE 

NEW  SPACING 

1 

COMPUTED 

51 

i 51 

1.23D  00 

4*2  3D—  0 1 

3.330  00 

UPDATE 

NEW  SPACING 

2 

COMPUTED 

51 

7 51 

4*  040-  02 

1 *200-02 

1 *450-02 

UPDATE 

3 

51 

13  51 

I.39D-05 

Am  390—06 

4*730-06 

CONVERGED  SOLUTION 

CHE<DE  39 

1 .950-12 

9-0 

5*720-15  2.250 

-15 

CHEKBM  0 

0 0 

0 

5*070-00  1-2BD-06 

7 • 25D—  07 

0*0 

SOLUTION  WRITTEN  ON  UNIT  20 
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A EDC-TR  -78-59 


DC  TODD  COPS  AROOD346  13:45  MQN  AUG  07*  1976 


EXAMPLE  A CHEMICAL 

X Y YP 

1 0.0  6.20040-01  -3.79960-01 

2 1 .9  1940-02  6.1  28  ID— 0 1 -3.7326D-01 

3 3 .643  ID— 02  6.0S7CO— Cl  -3.66560-01 

4 5.7709D-02  5.96  700-  01  -3.598SD-01 

5 7.70299-02  5*9181D-C1  -3.S320D-0I 

6 9.63890-02  S.8503D-0I  -3.46S2D-0I 

7 1 . 15790-01  5.79300-01  -3.39050-01 

0 1 .35233-01  5.71830-01  -3.33183-01 

9 1.5*710-01  5.654  10-01  -3.2650D-01 

10  1 .74220-01  5*591  00  — 0 1 -3.19820-01 

11  1 .937  BO  - 0 I 5.52910-01  -3.1  31  40-31 

12  2.13  3 70  - 0 1 5. *6  8 40-  01  -3.0  6 4 43  - 01 

13  2.33000-01  5.40900-01  -2.99740-01 

14  2.S2660-0!  5.3507D-01  -2  .93020-01 

15  2. 72360-01  5.29360-01  -2.B6263-01 

16  2.92100-01  5. 23780-01  -2.79S2D-01 

17  3.1  1873-0  1 5.183  20  - 01  -2.72  T4D-01 

18  3.31680-01  5.12980-01  -2.65940-01 

19  3.51510-01  5.07780-01  -2.59100-01 

20  3.71390-01  5.02700-01  -2.52243-01 

21  3. 91290-01  4.9  7 7 40-  01  -2.4534D-01 

22  4.11220-01  4.92920-01  -2.38*00-01 

23  4.3119D-0I  4.a823D-01  -Z.314ZD-01 

24  4.51193-01  4.83670-01  -2.24390-01 

2 5 4.7  1 2 23  - 0 1 4.7  9 2 50  -01  -2.173  20  - 01 

26  4-9  12  73— C 1 4.7  4960—0  1 -2.10190-01 

27  5.1  1360-01  4.798  ID  — PI  -2.03000-01 

28  5.31483-01  4.66000-01  -1.95750-01 

29  5.51620-0  1 4 .629 JD— 0 1 -1.88««3-01 

30  5.71790-01  4.59213-01  -1.81053-01 

31  5. 91980—01  4.55633-01  -1.73593-01 

32  6.12203-01  4.52193-01  -1.6605J-01 

33  6.32450-01  4.4891D-01  -1.58423-01 

34  6.5  27  2D  — 0 1 4.4  5 7 70  - 01  -1.50  710  - 01 

35  6.73010-01  4.42793-01  -1.42900-01 

36  6.93330-01  4.3997D-0I  -1.34993-01 

37  7.13660-01  4.3731D-01  -1.26973-01 

38  7.3*020-01  4.34810-01  -1.18840-01 

39  7.S440D-91  4. 324  70-01  -1.10590-01 

40  7,74793-01  4.30300-01  -1.02223-01 

41  7.952  10-01  4,28300-01  -9.37140-02 

42  8.1  5643-31  4 . 264  70—0  1 -8.5075J-C2 

43  8.36060-01  4.24820-01  -7.62923-02 

44  8.56540-01  4.2335C-01  -6.73580-02 

45  0.77010-01  4. 22070-01  -5.82670-02 

46  8.97490-01  4.2097D-OL  -4,90110-02 

47  9.I  798D-01  4.200  6D  — 01  -3.95830-02 

48  9,3848D-01  4. 19350-01  -2.9976D-02 

49  9.58980-01  4.1S.S3D-01  -2.01820-02 

5 0 9.7  9 4 93-  0 1 4.13  5 20-  01  -I.0193D-02 

51  I .00000  OO  4.  104  ID— 0 1 2.2612D-1S 


DISPERSION 


VPP 

1 

M 

S 

3 .4984-0-01 

0.0 

I .9190-02 

1.003 

00 

3.40533-01 

1 .18320-02 

1.924D-02 

1.000 

00 

3 ■ 4 7 3 2D—  C 1 

2.355 20-02 

1.9280-02 

1.000 

00 

3«4622t>-0L 

3.51610-02 

1.9320-0 2 

1*000 

00 

3.4S23D-01 

4.66600-02 

1.9360-02 

1 . OQO 

00 

3.44350-01 

5.80S2D-02 

t *9400-02 

1.000 

00 

3.43593-01 

6.93370-02 

1.9440-02 

1.000 

00 

3.42950-01 

8.05 1 6D-02 

1 .9480-02 

1.000 

00 

3.42440-01 

9. L 5920-02 

1 .9520-02 

1.000 

00 

3 ■ 4 2 OSD- 0 1 

1.02573-01 

1.9550-02 

1.003 

00 

3.4 179D— 01 

1.1 3440-01 

1 .9590-02 

1.003 

00 

3.4 1670-01 

1.242  10-01 

1.9630-02 

1.000 

00 

3.41690-01 

1 .34890-01 

1.9670-02 

1.000 

00 

3.41S5D-0I 

1.45460-0 l 

1 .9700-02 

1 .000 

00 

3.42160-01 

1.55950-01 

1 .9740-02 

1 .000 

00 

3.42610-01 

l • 66340—0 1 

1 .9770-02 

1 .000 

00 

3.43230-01 

1*76540-0 1 

1.9800-02 

1.000 

00 

3.44000-01 

1.06660-01 

1.9840-02 

1.000 

00 

3.44940-01 

1.96960-01 

1.9870-02 

l.  000 

00 

3.46050-01 

2.07020-01 

1*9900-02 

1*1)00 

OO 

3 .4  7340-0 1 

2. 16980-01 

1*9940-02 

1. 000 

00 

3 .48810-01 

2.26650-01 

1.9970-02 

1.000 

00 

3.50*60-01 

2.366SD-01 

2.0  0 OD— D 2 

1.000 

00 

3.523  ID-01 

2.46360-0 1 

2.0030-02 

1.000 

00 

3.5435D-01 

2.56010-0 1 

2. 0060-02 

1.000 

00 

3.566  00-01 

2.65573-01 

2.0090-02 

1.000 

00 

3.59050-01 

2.75070-01 

2.011 D— 02 

1*003 

00 

3.61730-01 

2.04500-01 

2.0140-02 

1.000 

00 

3.6*630-01 

2.93873-01 

2*0170-02 

1.003 

00 

3.67760-01 

3.03160-01 

2.0200-02 

1.000 

00 

3.71120-01 

3.124  OD  — 0 1 

2*0220-02 

1 . 000 

00 

3.74740-01 

3.21 583-01 

2.0250-02 

1 - OOD 

00 

3.78600-0 1 

3.30700-01 

2.0270-02 

1.000 

00 

3.82730-01 

3.39770-01 

2*0  290-02 

1 .000 

00 

3. 87130-01 

3.48793-01 

2.032D-02 

1.000 

00 

3 .91800-01 

3.57750-01 

2.0340-02 

1.000 

00 

3 .96760-01 

3.66673-01 

2*0360-02 

1.000 

00 

4 .02020-01 

3.75550-01 

2 .0330-02 

1.0  00 

00 

4.0  7590-01 

3.84380-0 1 

2*0400-02 

1.000 

00 

4.1 3470-01 

3.93180-01 

2.0410-02 

1*000 

00 

4.1 9670-01 

4.01953-01 

2.0430-02 

1 .000 

00 

4.262 10-CI 

4.1 0680-0 1 

2.0440-02 

1*000 

00 

4.331 00-0 1 

4.19380-01 

2.0460-02 

1*000 

00 

4.40340-01 

4.280SO-01 

2*0470-02 

1*003 

00 

4.4  7950-0 l 

4.36710-01 

2*0480-02 

1.003 

00 

4 .55940-0 1 

4.4  5340— 0 l 

2.0490-02 

1*000 

00 

4 .6  4320-0 1 

4.53953-01 

2.050 0-02 

1*003 

DO 

4.731 10-01 

4.62560-01 

2.0  50  0—02 

1 .000 

00 

4.82310-01 
4.91940-0 1 
S. 02010-01 

4.71 150-01 
4.79740-01 

4 .88320-01 

2.0510-02 

2.0510-02 

1.000 

OO 
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AEDC  TR-78-S9 


DC  FOOD  COPS 

AROO  0346 

13245  KQN 

AUG  07*  1978 

EXAMPLE  4 

CHEN  I CAL 

DISPERSION 

It  = 

0.  10000 

NDIM 

JCASE 

N 

NT 

JOUT  LPRNT 

LNORM 

250 

2 

51 

30 

20  I 

1 

11 

TOL 

RSC 

0.0 

5 

.00000-04 

1 .00000-02 

A 

B 

c 

D 

1.00003  00  -1 

.00000-01 

o.o 

1 .0  0000 

00 

0.0 

1 

.00000  00 

0.0 

0.0 

UNIFORM  SPACING  COMPUTED 


SOLUTION  GUESSED 


UROA TE 

1 

15 

1 

51 

1.34D-01 

3.74D-0I 

8.37D-02 

NEW  SPACING 
UPDATE 

COMPUTED 

2 

50 

11 

SI 

2.710-04 

3.750-04 

2.D9D-04 

CDNVERGEO  SOLUTION 

CHE<DE  32  3.73D-06  0*0  3*610-16  1.630-16 

CHEKBN  0 0 0 0 4.790-06  6.3*0-07  4. 480-05  0.0 

SOLUTION  WRITTEN  ON  UNIT  20 
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A E DC-TH  -73-59 


DC  I ODD 

COPS 

ARQ00346 

13  545 

MON  AUG  07. 

1978 

Example 

4 

CHEM ICAL 

DISPERSION 

X 

Y YP 

YP  P 

1 

H 

S 

i 

0*0 

9. 054  10-01  —9  .4  5 9 3D  — 0 1 

9.1 8660-01 

c.o 

1 .7010-02 

* 01  D 

00 

2 

1 *70060-02 

8*69450-01  -9.30420-01 

9.05870-01 

L .52620-02 

1 .7130-02 

• 010 

00 

3 

3.41390-02 

8.73640-01  -9*15000-01 

8.9309D-01 

3.03650-02 

1*7260-02 

*013 

DO 

4 

5*1 4000-02 

8.57960-01  -6.99700-01 

6.80330-0 I 

4.53090-02 

l .739D-02 

*010 

00 

5 

6*87800-02 

8.42470-01  -8*84500-01 

8.6760D-01 

6.00920-02 

1 .7520-02 

• 010 

00 

6 

8,63040-02 

8.271  10-01  -8.69420-01 

8.54690-01 

7.471 40-02 

l • 7650-02 

.010 

00 

7 

1 *03950-0  1 

a*] 1900-01  -8.54440-01 

8.42220-01 

5.91 740-02 

l .7770-02 

.01  D 

00 

8 

1 .2  172D-01 

7*96050-01  -8. 39590-01 

8. 295 80-01 

1 *03470-01 

1.7910-02 

• 01  > 

00 

9 

1 .39630-01 

7.81950-01  -8. 24850-01 

8*  L699D-01 

1 . 1 76  10-01 

1 .8050-02 

*01  D 

00 

1 0 

1 *57680-0 1 

7.67190-01  -8. 10220-01 

B « 0 44  40  — 0 1 

1 .31 500-01 

1.0170-02 

• OLD 

00 

1 1 

1 *75850-0 1 

7.5260D-01  —7*957  ID—  0 1 

7.9  1 950  - 01 

1.45390-01 

1 .8300-02 

-DIO 

00 

1 2 

1 .94150-0  1 

7.361 7D-01  -7.81330-01 

7*79520-01 

1*59030-01 

1 .8430-02 

.DID 

00 

1 3 

2*12580-01 

7.23900-01  -7.67080-01 

7.67170-01 

1 .72500-01 

1 .8550-02 

.□10 

00 

14 

2.31  1 30  — C I 

7. 09300-01  -7.52960-01 

7.54900-01 

l .85800-01 

1 .8680-02 

• OLD 

00 

l 5 

2*498  ID- 0 1 

6.95870-01  - 7 .38980- 0 L 

7.42720-01 

1 .98930-0 1 

1 .8000-02 

.010 

00 

16 

2 .686  ID- 01 

6*821  1D-0 1 — 7 « 2S 1 3D  — 0 l 

7.3  0650-01 

2. ll 860-01 

1.8920-02 

4 010 

00 

1 7 

2.B753D-D1 

6*60520-01  -7.1  1410-01 

7. 1 0690-0 L 

2*24660-01 

l .9050-02 

• 010 

00 

i e 

3 .06580-01 

6*55100-01  -6*97040-01 

7*06880-01 

2. 37270-01 

1 .9170-02 

• 0 1 D 

00 

19 

3 .25750-01 

6*418  SO  — 0 1 -6.04400-01 

£ *95210-01 

2.49700-01 

1.9290-0? 

. 0 ID 

oo 

20 

3*450  40-01 

6*28780-01  -6.7I10J-01 

6.83730-01 

2.61950-01 

1 .9410-02 

• 010 

□ 0 

21 

3*64440-01 

6*15800-01  -6*57940-01 

6.7246D-0 1 

2.74030-01 

1 .9520-02 

• OiD 

00 

22 

3 .83970-0  1 

6.03  1 60-  01  -6  * 4 4 9 20  - 01 

6.61430-01 

2.85930-01 

2 .9640-02 

• 01D 

00 

23 

4.0  3610-01 

5 *906  2D— 0 1 -6.32030-01 

6.50700-01 

2.97650-01 

1 .9760-02 

• 010 

00 

24 

4*23370-01 

5.7826D-01  -6.19280-01 

6.40300-01 

3.09200-01 

1 .9870-02 

.010 

00 

25 

4.4323D-01 

5.66080-01  -6. 06660-01 

6.303  20-01 

3.20570-01 

1.9980-02 

• OID 

00 

26 

4.6  32 1 3—0 1 

5.54C9D-01  -5.9416D-01 

6*20640-01 

3.31760-01 

2*0090-02 

.OID 

00 

2 7 

4. 6330D-01 

5.42260-01  -6*81780-01 

6*1 1960-01 

3.42770-01 

2.0200-02 

• OID 

00 

28 

5.03500-01 

5.30650-01  -5.69500-01 

6. 03820-01 

3.53600-01 

2*0300-02 

• DID 

00 

29 

5.23810-0 1 

5.19^10-01  -5.5732D-01 

5.96580-01 

3.64260-01 

2*0410-02 

• OLD 

00 

30 

5.44220-01 

5.07960-01  -5*45210-01 

5 .9 0460-01 

3.74740-01 

2*0510-02 

• OLD 

00 

3 1 

5*6  47  30-01 

4*96900-01  -5*33150-01 

5.85740-01 

3.05050-01 

2.0620-02 

.0  00 

00 

32 

5 *6  5350—  0 1 

4.86030-01  -5.21100-01 

5.82740-01 

3.951 8D— 01 

2.0720-02 

• 000 

00 

33 

6 .06070-0  1 

4.75360-01  -S. 09040-01 

5*81910-01 

4. 05140-01 

2.0020-02 

.000 

oo 

34 

6.26890-01 

4*64890-01  -4.9691D-01 

5.03790-01 

4.14930-01 

2.0920-02 

• 000 

00 

35 

6 .478  LD-0  1 

4 .54620—01  -4*84650-01 

5.89100-0 l 

4.24550-01 

2*1020-02 

.000 

00 

36 

6 .56630-01 

4.44560-01  -4.72170-01 

5 .98740—01 

4.34000-01 

2*11 30-02 

• ooo 

oo 

37 

6 .69960- 0 1 

*.34720-01  -4.59370-01 

6*13850-01 

4.43290-01 

2*1230-02 

.013 

00 

38 

7*111 9D-01 

4*25110-01  -4*46120-01 

6.3592D-01 

4.52410-01 

2.1 340-02 

* 0 1 D 

00 

39 

T . 325  3D- 0 1 

4.15730-01  -4.32240-01 

6 .66050-01 

4*61360-01 

2.1450-02 

• 010 

00 

40 

7. 53900-01 

4*06620-01  -4.17510-01 

7. 09070-01 

4.70200-01 

2.  L56D-02 

.010 

00 

4 1 

7.75540-01 

3.97700-01  —4.0  1633—0  1 

7.65740-01 

4.70070-01 

2.1690-02 

• OID 

00 

42 

7 .97233—0 1 

3.89260-01  -3.84250-01 

6.40940-01 

4*07410-01 

2.1820-02 

.OID 

00 

43 

a *1  9050-01 

3.81000-01  -3.64070-01 

9.39980-01 

4*958  L 0-01 

2.1970-02 

• OID 

oo 

44 

6.4  10  IP-01 

3.73300-01  -3. 42860-01 

1.06980  00 

5.041 00-01 

2.2130-02 

• OID 

OD 

45 

8.63150-01 

3.65990-01  -3.17380-01 

1.23950  00 

5.12280-01 

2.2310-02 

• OLD 

00 

46 

5*65460-01 

3.59240-01  -2.87360-01 

1.46110  00 

S.2037D-0 1 

2.2500-02 

• OID 

00 

47 

9.07960-01 

3.53160-01  -2.51370-01 

1.75020  00 

S. 28380-01 

2.2710-02 

• OID 

00 

48 

9.3067D-01 

3.4  7930-01  -2.0  7520-01 

2.12770  00 

5.36340-01 

2.2930-02 

• 010 

00 

49 

9.53600-0 1 

3.43700-01  -1. 53330-01 

2.62110  00 

5.442*70-01 

2.3130-02 

• OID 

00 

50 

9.76730-01 

3.4098D-01  -0.56050—02 

3.26570  00 

5.52180-01 

2.3270-02 

5 1 

1 .30000  00 

3*39950-01  -1*03010-16 

4.10970  00 

5.60100-01 

<lr 
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A E DC-TR -78*59 


DC  TOOP  CD»S 

AROD  0346 

13:45 

MON 

AUG  07*.  1 978 

EXAMPLE  A 

chemical 

DISPERSION 

K “ 

0.00  100 

NDI  M 

JCASE 

N 

NT 

JOUT  LPRNT 

LNORH 

250 

3 

51 

30 

20 

I 

1 

11 

tol 

RSC 

<3*0 

5 

.00000-04 

l *00000-02 

A 

B 

c 

D 

I « OOOOD  00  -1 

•00000-03 

0.0 

1 *000  00 

00 

0*0 

1 

*00000  00 

0 .0 

0*0 

UMIFORM  SPACING  COMPUTED 


SOLUTION  GUESSED 


UPDATE 

N EM  SPACING 

1 

COMPUTEO 

51 

1 

51 

4.07D-0I 

8*590-01 

l .660-01 

UPDATE 

NEW  SPACING 

2 

COMPUTED 

51 

4a 

51 

3.4QD-Q2 

4*32 D—  01 

3*480-03 

UPDATE 

NEW  SPACING 

3 

COMPUTED 

50 

47 

51 

1*90 D-02 

6 * 360—0 1 

3*400-03 

UPDATE 

NEl  SPACING 

4 

COMPUTED 

SI 

48 

51 

i * 050-02 

3*  99D-01 

5*81 D-04 

UPDATE 

UPDATE 

5 

6 

50 

51 

46 

SO 

S 1 

51 

9.000-03 
6. 370-07 

3*  280-0 l 

4 *3  30-06 

1.770-03 

5.500-08 

CONVERGED  SOLUTION 

CHEKDE  10 

2 »85D—  1 1 

0*0 

0*0 

2.490 

-14 

CNE<  BM  0 

0 0 

0 

2*  02  D—  04 

4*21 D—  0 4 

9*  74 D- 02 

0*0 

SOLUTION  WRITTEN  ON  UNIT  20 
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AEDC-TR  -78-59 


CC  TODD 

COPS 

AROC  0346  13245 

MQN  AUG  07. 

1978 

example 

4 

CHEM 1CAL 

0 ( SPER5 I ON 

X 

Y YP 

VPP 

1 

M 

S 

1 

0.0 

9.98870-01  -1 .13370  00 

1.40833 

00 

0*0 

1.6760-02 

1.010 

00 

2 

1 *67580-02 

9.0OC4O-O1  -1.11480  00 

8.96453-01 

1,658  ID— 02 

1 .6900-02 

l .010 

00 

3 

3*3  66  03—02 

9 . 6 1 3 50—  0 1 -1.09  4 90  00 

1 .441  50 

00 

3.2987D-02 

1.7090-02 

1*010 

00 

4 

5. 07480-02 

9 .4 28  2D  — 0 1 -1.07620  00 

7.6  469D- 

-01 

4 ■ 92560—02 

1.7230-02 

L .01  0 

00 

5 

6,79740-02 

9.244  JO  — C 1 -1.05620  30 

1.52533 

00 

6. 53380-02 

1.7420-02 

1*010 

00 

6 

3 • S 39  70  - 0 2 

9.06220-01  -1.03810  00 

S. 96130 

-01 

8,  1 2850—02 

1 .7550-02 

1.0  10 

00 

7 

1 .02953-0 l 

8.68130-01  -1.01800  00 

1.6  504D 

00 

9.70330-02 

1 *7760-02 

1 .013 

00 

a 

t .20710—01 

8 .70260—0  1 -1.00040  00 

3.79060- 

-01 

1 *12650-01 

1 .7060-02 

1*0  ID 

00 

9 

1 .38590-0 l 

8. 52490-01  -9.8008D-01 

1 .63040 

00 

1 ■ 28050—01 

1.8110-02 

1.010 

00 

10 

1 .56700-01 

S.3497D-0I  —9.631  80—  0 1 

9.79063-02 

W 43330-01 

1*0210-02 

1*010 

00 

1 1 

1 ,74913-0  l 

8. 175  40-  01  -9.4  26  1 0 -01 

2.08313 

00 

i .58370-31 

1 *8460-02 

1.000 

00 

12 

1 .9  337D-Q  l 

8.0G39D— 01  -9.266  ID-0  1 

-2.67930-01 

1 .73300-01 

I.  8530-0-2 

1.020 

00 

13 

2.1 1900-0 i 

7,83300-01  —9 *05570—0 1 

2.4  315D 

00 

1*67980-01 

1.8810-02 

1.000 

00 

14 

2.307  ID—  0 l 

7.66540-01  —0*907  OD  — 0 1 

-7.4  5320-0 l 

2*02550-01 

1 *6850-32 

1*020 

00 

1 5 

2.4956D-0J 

7.49790-01  -8.60970-01 

2.90510 

00 

2.16840-01 

1.9170-02 

9.990- 

01 

16 

2.68730-0  1 

7.33460-01  -0. 55540-01 

-1  .36920 

00 

2*31060-01 

1.9160-02 

1 . 02D 

00 

17 

2. 67390-01 

7.17060-01  -8.32010-01 

3.541 73 

00 

2.4 4960-01 

1.9540-02 

9.96D- 

01 

Id 

3. 07430-01 

7.011BD-01  -8. 21230-01 

-2.18480 

00 

2.56810-01 

1.9460-02 

1*020 

00 

1 9 

3.26A9D-0 1 

6 .£51  2D -0  L —7.9  71 OD -0 1 

4 .38970 

00 

2.72300-01 

1.9910-02 

9.9ID- 

01 

20 

3 .46800-01 

6.69720-01  -7.0  7863  — 0 1 

-3.25093 

00 

2,85790-01 

1.9740-02 

1*030 

oa 

2 l 

3 .6  65  40-0  l 

6.54000-01  —7.61 300—01 

5,51013 

00 

2.90650-01 

2.0290-02 

9*860- 

01 

22 

3 • 8 68  3D-  0 1 

6.39130-01  -7. 55560-01 

-4 .64360 

00 

3.1 1970-01 

2*0010-02 

1*030 

00 

23 

4 .06840-0 1 

6. 23720-01  -7.26890-01 

6 .98013 

00 

3.24613-01 

2.0680-32 

9.790- 

01 

24 

4,27530-0  1 

6 ■ C 94  40  —0  1 -7.2  4 5 00-01 

-6.4616D 

00 

3.37360-01 

2 *02  50—02 

1.040 

00 

25 

4 .47783-0 l 

5.94300-01  -6.92310-01 

6 ,69620 

00 

3.49550-01 

2. 1 090-02 

9.710- 

01 

26 

4 .6  80  60-0  1 

5.80680-01  -6.94850-01 

-8  *83263 

00 

3.61930-01 

2.0470-02 

1.050 

00 

27 

4 • 693  3D— 0 t 

5.65780-01  -6.57903-01 

1 *1 379D 

01 

3.7367D-01 

2.1500-02 

9.600- 

01 

26 

5. 1 0830-0  1 

5.52910-01  -6.66650-01 

-1*19233 

01 

3.65690-01 

2.0650-02 

1*060 

00 

29 

S. 3 1*80-0  1 

5.381  90— 0 L -t. 23800-01 

1 *45760 

01 

3. 96960-01 

2.1940-02 

9*470- 

01 

30 

5.53420— D 1 

5.261 90-01  -6.408CD-01 

-1. 59470 

0 1 

4.08630-01 

2.0780-02 

1.060 

00 

3 1 

5,74210-0 l 

5.11560-01  -5.09650-01 

1 *66710 

OL 

4.19423-01 

2.2400-02 

9.320-01 

32 

S.9660D-0 1 

5.0  06  OD  — 0 1 -6*171  ID-01 

-2*1  I860 

01 

4.30753-01 

2.0870-02 

1*100 

00 

33 

6.1  74  70-0  1 

4. 65960-01  -5.55413-01 

2*38660 

01 

4.41040-01 

2*2870-02 

9.130- 

01 

34 

6.403  40-01 

4. 76290-01  -5.96300-01 

-2*80040 

0 l 

4*52050-01 

2.0860-02 

1*120 

00 

35 

6 .61220-01 

4.615  ID  — 01  -5.20940-01 

3.04980 

01 

4 . t L 830—0 1 

2.3330-02 

8.92D- 

01 

36 

6 .64550-0 1 

4 . 534  3D— C 1 -5.79080-01 

-3*60763 

01 

4.72510-01 

2.3810-02 

1*140 

00 

37 

7 .05360-01 

4.3037D-OI  —4  ■ 861  OD— 0 1 

3.88550 

01 

4.81 790-01 

2.3770-02 

0.680- 

01 

38 

7 .291  3D  — 0 1 

4. 32300-01  -5.6639D-01 

-4.04140 

01 

4.92140-01 

2. 0630-02 

1.170 

00 

39 

7.49760-0 1 

4.1 68  OD— 0 l -4.50740-01 

4 .94200 

Cl 

5 *00890-01 

2.41 10-02 

8,430- 

01 

40 

7.73880-01 

4.132  40-01  -5.594  60-01 

-6.34090 

0 1 

5.10900-01 

2*0340-02 

1 ,200 

00 

41 

7.94210-01 

3.971 20-01  -4.14603-01 

6.28470 

01 

5. 19140-01 

2*4300-02 

0.180- 

OL 

42 

6.1 0510-01 

3 .96660-01  -5.5984D-01 

-8.29310 

01 

5.28790-01 

1 .9880-02 

1.220 

GO 

43 

8 . 38400-0 ! 

3.79750-01  -3.77153-01 

B.O 1720 

01 

5.36500-01 

2.41 70-02 

7.930- 

01 

44 

6.6  257D-0 1 

3.82950-01  — 5 . 69460—0  l 

-1 .08433 

02 

5.45730-01 

1 *9  L 80—02 

1 *230 

00 

45 

B .8  1750-01 

3.65190-01  -3.3730D-OI 

1 .03030 

02 

5*5289D— 91 

2. 3510-02 

7. 770- 

01 

46 

9.05260-01 

3.7  2 2 80-  01  -5.9  0 3 80  -01 

-1 *4 1 740 

02 

5.61570-01 

1 . 8260-02 

1*220 

00 

47 

9 .23520-0 1 

3.53600-01  -2.92720-01 

1.34190 

02 

5.66190-01 

2*2290-02 

7.730- 

01 

48 

9.458 10-0 l 

3.6  4490-01  -6  - 253  80— 0 1 

-1 ,85790 

02 

5.7620D-0 l 

1 .7240-02 

1.20 

00 

49 

9 .6  30  40-0  1 

3.44590-01  -2. 37710-01 

1 « 766  83 

02 

5. 823  00— 0 l 

2.06DD-02 

7.940- 

01 

50 

9.83640-0  1 

3.58880-01  -6.76580-01 

-2.43S20 

02 

5. 89560-0 L 

1 .6360-02 

51 

1 .0  GOOD  00 

3.3  74  40  - 0 1 2.4  8690-1  4 

4,08030 

02 

5.95Z4D-0 l 

STOP 


106 


AEDC-TR-78-59 


DC  TODD  COPS 

example  5 


AR000394  19512  MOM  AUG  07*  1979 

INHERENTLY  UNSTABLE  PROBLEM 


NO  I M JCASE 

250  1 


N NT  JOUT  LPRNT  LNORM 

51  30  20  t 1 


1 1 


o.o 


TOL  R SC 

5.00000-04  1*00000-02 


A B 

l.OOOOD  00  0.0 

l.OCOOD  00  0.0 


C D 

0.0  1 » OOOOD  00 

0.0  0.0 


UNIFORM  SPACING  COMPUTED 


SOLUTION  GUESSED 


UPDATE 

1 

3 

1 

51  9.200-01 

3.66D  16 

9.560-01 

NEW  SPACING 

COMPUTED 

\ 

UPDATE 

2 

2 

1 

51  5.I9D-04 

2.530-03 

6 .420-04 

UPOATE 

3 

0 

0 

0 0.0 

0.0 

0.0 

CONVERGED  SOLUTION 

CHEKD6  45 

2.62D- 12 

0.0 

0.0 

0.0 

COMPARISON  OF  SOLUTION 

WITH  TABLE  IN  REF 

7 

J 

X 

YA 

YB 

OIPF 

1 

1 *0 

1.0000 

1.0000 

0.0 

2 

1 *2 

0.7140 

0.7140 

0.0009 

3 

1*4 

0. 4871 

0.4869 

0.0002 

4 

1 .6 

0.3146 

0.3145 

0.0001 

5 

1.6 

o.iaor 

0*1  897 

0. 0000 

6 

2*0 

0*1039 

0.1  036 

0. 0003 

* 

7 

2.2 

0.047S 

0.0476 

-0.0001 

8 

2*4 

0.013* 

0*0134 

-o',  oooo 

9 

• 2*6 

0. 0055 

-o.oose 

0. 0003 

1 0 

2.6 

0.0155 

-0.01  S3 

-0.0002 

1 1 

3.0 

0.0192 

-0.0190 

-0.0002 

12 

3.2 

0. 0192 

-0.01 95 

0.0003 

1 ? 

3.4 

o.oiei 

-0.0163 

0.0002 

2 4 

4.0 

0.0131 

-0.0120 

-0.0003 

15 

5.0 

0.0066 

-0.0063 

-0.0000 

SOLUTION  WRITTEN  ON  UNIT  20 
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AEDC-TR-78-59 


DC  TODD 

COPS 

AR000384  19112 

WON  AUG  07. 

1979 

EXAMPLE 

5 

inherently  unstable 

PROBLEM 

X 

Y 

YP  YPP 

I 

H 

S 

X 

\ *00000 

00 

1 .00000  00 

-1 .57970  00  1 .50000  00 

0,0 

2.3670-01 

1.120 

00 

? 

t . ? 1 1 70 

00 

6.67930-01 

— 1 .22 1 60  DO  1.46870  00 

1 .95770-0 1 

2 • 6400—0 1 

1 . 190 

00 

3 

1*51070 

■TO 

3. 93680-01 

-Q. 59620-01  1.28650  00 

3.33  750-01 

3.1410-0 1 

1 .160 

00 

4 

1.81 480 

00 

1 .82090-01 

-5.0576D-0L  9.54960-01 

4 .21 25D-0 1 

3,6280-0 1 

1.060 

00 

5 

2.1  7 75D 

00 

5 .26  920-02 

-2.31840-01  5.64560-0! 

4 ,60840-01 

3*8310-0 1 

1 .010 

00 

6 

2*56060 

00 

- 

2.09690-33 

-7. 78360-02  2. 61790-01 

4,60500-01 

3 .8720—0 1 

1 .000 

00 

7 

2*94 78D 

00 

- 

1 .84420-02 

-1.30470-02  9.3056D— 02 

4 .6J5TD-01 

3 .8750—0 1 

1 .ooo 

00 

8 

3.33530 

00 

- 

1 .88100-02 

6.79380-03  2.14150-02 

4 .56110-01 

3.8750-01 

1.000 

00 

9 

3.7229D 

30 

- 

1 .53700-02 

9.6575D-03  -I.2826D-03 

4.49450-01 

3.0750-01 

1.000 

00 

10 

4*11040 

00 

- 

1 .1*5  100-02 

7.99330-03  -5.53660-03 

4 .44190-01 

3.0750-0 1 

1.000 

00 

L 1 

4 .49790 

00 

- 

9.2278D-03 

5.91490-03  -4.80470-03 

4.401 20-01 

3.07SD-O1 

1 .ODD 

00 

12 

4 * 88550 

,00 

- 

7. 26290-03 

4. 31770-03  -3.4380D-O3 

4.36940-01 

3.0750-01 

1 *000 

00 

13 

5 • 27300 

□ 0 

- 

5.8t900-03 

3.20100-03  —2.  3852D— 03 

4 . 34  4 2D— 0 1 

3.0760-0  L 

1*000 

00 

14 

5,660*0 

00 

- 

4.73  790-03 

2.42730-03  — ! .67700-03 

4.32290-01 

3*9760-01 

1 . OOD 

00 

IS 

6.0  48  ID 

00 

- 

3.91 170-03 

1.07G7D-O3  -1.20670-03 

4.30720-01 

3.076D-O  1 

1 .ODD 

oo 

16 

6.43570 

00 

- 

3.26850-03 

t. 46870-03  -8.379*0-04 

4.29330-01 

3.8760-0  1 

1 . OOD 

00 

17 

6.62320 

00 

- 

2.75990-02 

1.17010-03  -6.66190-04 

4.2817  D-0 l 

3.0760-01 

1 • OOO 

00 

18 

7.21080 

0 0 

- 

2.35210-03 

9.44260-04  -5.0S31D-04 

4.27180-0 1 

3.0760-0  1 

1.000 

00 

19 

7.59830 

00 

- 

2.0  2120-03 

7. 70650-04  -3.9360D-04 

4.2633D-0 1 

3.0760-0 l 

1.000 

00 

30 

7*98590 

00 

- 

1 .74900- 02 

fi. 35360-04  -3.08790-04 

4. 2560  0-01 

3.9760-01 

1 .000 

00 

2 1 

0 ,37340 

00 

- 

1 . 52510-03 

5,28620-04  -2.45090-04 

4.24970-0  1 

3.0760-01 

1 .000 

00 

22 

8*761  OD 

00 

- 

1 .37  730-03 

4.4  34  5D—  04  -1. 96600-04 

4. 2442D— 0 1 

3.9760-0  l 

1 .ooo 

00 

23 

9*14850 

00 

- 

i . 17  9 20-  03 

3.74810-04  -1. 59210-04 

4 .23930-0] 

3.8760-01 

1.000 

00 

24 

9 .53610 

00 

- 

1 .04510-03 

3.1B98D-04  -1.30070-04 

4.23500-0 i 

3.8  76  0-01 

1 .000 

00 

25 

9.92370 

00 

“ 

9. 30670-04 

2.73200-04  -1.07120-04 

4.23120-01 

3.0760-01 

1 .ooo 

00 

26 

1*031  ID 

01 

- 

8.32360-04 

2.353  50-04  -S.  88670-05 

4 .22780-01 

3.8760-01 

1 .000 

00 

27 

1 *06990 

01 

- 

7 . 474  3D—  04 

2.03850-04  —7 . 42  3 2D— OS 

4.22470-0 1 

3.876D-0 1 

1 .OOD 

00 

28 

1 . 10660 

0 1 

- 

6. 73690-04 

1.77460-04  -6.24000-05 

4.22190-01 

3.0760-01 

1 .OOD 

oo 

29 

l * 14  740 

01 

- 

6 .0935^-04 

1.55200-04  -5.27640-05 

4 .21950-01 

3.8760-01 

1.000 

00 

30 

1 .16610 

01 

- 

5. 5295D-04 

1 . 36 330  — 04  -4.48630-05 

4.21720-01 

3.0760-01 

1.000 

00 

31 

1 .22490 

01 

- 

5.03120-04 

1.20250-04  —3. 834  ID  — 05 

4,21 52  D— 0 1 

3.8760-01 

1 .000 

00 

32 

1 .26370 

01 

- 

4. 594  50-04 

1.06470-04  -3.29260-05 

4 .21330-01 

3.8760-01 

1 • OOD 

00 

13 

1 .30240 

01 

- 

4.20540-04 

9.46160-05  -2.84040-05 

4.2U60-0  l 

3.8760-01 

1.000 

00 

34 

1 . 341 20 

01 

- 

3.Q590D-04 

8.43650-05  -2. 46080-05 

4.21000-01 

3.0760-01 

1.000 

00 

35 

1.37990 

01 

- 

3. 549  70-0  4 

7.54660-05  -2.14050-05 

4.20060-01 

3.0760-01 

1 .000 

00 

36 

1.41870 

01 

- 

3. 27260-04 

6. 77110-05  -1. 86900-05 

4.20  730-01 

3.8760-0 I 

1 .000 

00 

37 

l .45740 

0 1 

- 

3.02360-04 

6.09280-05  -1.63780-05 

4.20610-01 

3.0760-01 

1.000 

00 

38 

1 .49  620 

01 

- 

2. 79930-04 

5.49730-05  -1.44010-05 

4.2049  0-01 

3.076  0-01 

1.000 

00 

39 

1 . 53490 

01 

- 

2 . 5966D-  04 

4.97300-05  -1.27030-05 

4.2039  0-01 

3.8760-01 

1.000 

00 

40 

1 .57370 

01 

- 

2.41300-04 

4.50950-05  — 1 . 12450—05 

4. 20290-01 

3.8760-01 

1 .000 

00 

41 

1 .6124D 

01 

- 

2. 24640-04 

4.09940-05  -9,96210-06 

4.20200-01 

3. 876  D-0 1 

1 .OOD 

DQ 

42 

1 .651 20 

01 

- 

2. 09470-04 

3.73260-05  -0.94030-06 

4 .20120-01 

3.8760-01 

1 « OOD 

00 

43 

1 .69000 

01 

- 

l .956  40-04 

3.41560-05  -7.66420-06 

4.2004  0-01 

3.8760-01 

l .000 

00 

44 

1.72870 

01 

- 

1 .83010-04 

3 .09 110- OS  -8.16670-06 

4 , 19970-0 1 

3.6760-01 

1.000 

00 

45 

1 .76750 

01 

- 

1 .71 420-04 

2.97200-05  -1.35710-06 

4.19900-01 

3.0760-01 

1 .000 

00 

46 

l .80620 

01 

- 

1 .60870-04 

2.15610-05  -2.43540-05 

4.1 90  3D— 0 1 

3.0760-01 

1.000 

00 

47 

1 .84500 

01 

- 

1.50830-04 

4.3  3 900-  05  7.176  60-05 

4. 19770-01 

3.6760-01 

1.000 

00 

48 

1.86370 

01 

- 

l . 429  70-  04 

-S. 64990-05  -3.20720-04 

4.19720-01 

3.0760-01 

1.000 

00 

49 

1 .92250 

01 

- 

1 .3028f>-04 

3.41660-04  1.29200-03 

4 .19660-01 
4.19630-01 

3.876  0-01 

1.000 

oo 

50 

1.96120 

01 

- 

1 • 39280—04 

-1.28170-03  -5.05940-03 

3.8760-01 

51 

2.00000 

01 

0.0 

5.79360-03  *.76190-02 

4.19520-01 

STOP 
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AEDC-TR-78-59 


OC  TOOO  COPS 

EXAMPLE  6 

AROOQ3  84 

io : 16 

MON 

AUG  07,  1976 

o 

II 

X 

• 0 

NO  I M 

JCASE 

N 

NT 

JDUT 

LPRN1 

LNORM 

2*50 

1 

51 

30 

20 

1 

1 

1 1 

TOL 

R SC 

0.0 

5.0C0DD-04 

1 •0000D— 02 

A 

B 

c 

0 

1.00000  oo 

0.0 

0.0 

0.  0 

1.00000  00 

0.0 

0.0 

0.0 

UMFOHH  SPACING  COMPUTED 
SOLUTION  GUESSED 


UPDATE 

1 

B 

51 

51 

5.72 D— 01 

1 .COD  0 1 

3.00D-01 

NEW  SPACING 

COMPUTED 

UPDATE 

2 

12 

1 

26 

3 . 56  D— 04 

2,150-04 

1 .060-04 

CONVERGED 

SCLUT  [ON 

CHEKDE 

19 

2.410-15 

0*0 

0.0 

0.  0 

CHEKBM 

l 2 

39  12 

26 

2. 03D— 04 

3 * 4 2D  — 03 

2.030-02 

3*090-05 

SOLUTION  WRITTEN  ON  UNIT  20 
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A E DC-TR  -78-59 


DC  TO  do  cops 

EXAMPLE  6 

X 

10-0  0 
7.  S.^ftSOO-O’  -5 
3 1 .17640- 12  - l 

A l .76460-02  - l 

5 2.45590-02  -? 

6 2.21610-^2  -? 

7 3.97620-02  -2 

3 4.97740-0?  - 3 

9  S. 98640-12  -4 

10  7.37290-02  -4 

11  9 » l l??n-0?  -5 

12  \ .17  7 3D—  0 t - 5 

13  1 .6  4 350—0  1 -5 

14  1.97920-01 

1 5 2.231  40-  **  1 - 4 

16  2*45160-01  -4 

17  2.65650-01  -3 

10  2.85400-01  -3 

19  3.04940-01  -2 

20  3.24710-01  -2 

21  7 .45200-01  “I 

22  3.6699D-01  -1 

23  3.90930-01  -9 

24  4 .1829D-D  1 -4 

25  4.53050-01  -6 

26  5.00  000-01  l 

27  5.46550-01  -6 

28  5.01710-01  -4 

?9  6.0907D-01  -9 

30  6 « 33010-01 

31  6.5480D-01  -1 

32  6. 75290-01  -2 
n 6.9  5060-01  -? 

34  7.1460D-01  -3 

35  7.3435D-01  -3 

36  7 . 54  8 40— p1  -4 

37  7.76860-01  -4 

30  6.02030-01  -5 

79  9.756SD-01  -5 

41  6 • 622  70—  1 l -5 

41  9.08870-01  -5 

42  9.26  2 70-0*  -4 

43  9.40140-01  -4 

44  9. 50230-01  -3 

45  9.6  02  40-01  -7 

46  9. 67040-01  -2 

47  9.75440-01  -2 

48  9.8235D-01  -1 

49  9.80240-0 1 “ l 

50  9.94120-01  -5 

51  1.00000  00  0 


ARD00784 


V YP 

.0  -5.9971D  00 

.67650-02  -9.30570  00 
.09560-01  —6.6 55  2D  00 
.58650-01  -6. 03170  00 
.1  1 750-01  —7.3  3650  00 

• 6475D— *51  -6*61620  09 

.12440-01  -5.9393D  00 
.*7700-01  -5.1092D  DO 

.15330-11  -4. 33830  01 
.68660-01  -3.3769D  00 
.17970-01  -2.71450  00 
.60630-91  -9.63530-01 
*62690-01  7.65420-01 

.22190-01  1.55600  00 

.76160-11  2.C275D  01 

.28510-01  2.28390  00 

• 80060-01  2.431  lO  00 

.31200-01  2.49610  00 

.62440-01  2.49220  00  - 

.33720-01  2*42400  00  - 

.85  2 00  - 0 1 2*29390  Cl  - 

*37370-01  2.0537D  00  - 

.05230-02  I. 81 080  00  - 
.61780-0?  1 ■ 42040  00  “ 

.56200-03  8. 46870-01  - 

.24600-02  -1*49560-03  - 
.67420-03  -8.47990-01  - 
■6297D-12  -1.41990  00  - 
.06250-02  -1.61010  00  - 
.77460-01  -2-05300  OO  - 
.85360-01  -2.25330  00  - 

• 32  78D- 01  -2.4243D  00  - 

.e?500-0t  -2*49180  00  - 
.■•1330-01  49580  00 

■ d 0090- 0 1 -2.43090  00 
.28550-01  -2.28300  00 
*76200-01  -2.02760  00 
*22240-01  -1.55680  00 
.62820-01  -7.7043D-01 
.61230-01  9.61 330—0 1 

.10330-01  2.21300  00 

.68560-01  3.30090  00 

.15540-11  4.34240  00 

.67890-01  6.11330  00 

.12600-01  S.54^70  00 

• 6 4070—  »*>  l 6.62020  00 

. 11640-01  7.34040  00 

.50710-01  8.03560  00 

.09630-01  8*65910  00 

.67880-02  5.31360  00 

.0  1.00010  01 


19  516  MON  AUG  0 7. 


YPP  I 

1.19740  02  0.0 

1.14020  0?  -1.60930-04 
1 .08590  02  —6 . 60050—04 
1.03450  02  — 1 .45070—03 
9.77360  01  —2 ■ 733  8D— 03 
9.16450  01  -4,54830-03 
0.63300  01  -6.74530-03 
7.95870  01  -1  .01570-02 

7.33230  01  -1.41140-02 
6.55230  01  -2.02570-02 
5.68180  0!  —2  .08  700—0  2 

4.54270  01  -4*32940-02 
2*94750  01  -6.98000-02 
2.01960  01  -0*30850—02 

1.40980  01  — 1 *00  70  0—0 1 
9*27030  00  -1.10670-0  1 
5.14  770  00  -1*1896  0-01 
1.40750  *0  -1.25990-01 
1.84210  00  -1.31980-01 
4.92170  00  -1. 37080-01 
7*81090  00  -t. 41370-11 
1.05080  01  -l. 44080-01 
1*30460  01  -1.47590-01 
1.53660  01  -J.49440-01 
1 « 73 830  01  -1.50300-01 
1.83920  01  -1.49980-01 
1.73940  91  -1.49660-01 
1.52780  01  -1.50530-01 
1*2 056 D 01  -1. 52370-01 
1*95170  01  -1*55090-01 
7.00820  00  -1.58600-01 
4.92790  00  -1*62890-01 
1.84730  00  -1.67990-91 
1.48330  00  -1*73990-01 
5.14780  00  -1.81020-0) 
9.26600  00  -1  .89310-01 
1,40920  01  -1.99280-01 
2.01930  01  -2.11890-91 
2 • 946 2D  01  -2.30180-01 
4.53870  01  -2.56790-01 
5.67820  91  -2.71130-01 
6.5497D  91  -2.79750-01 

7.33090  01  -2*05900-91 
7.9567D  01  -2.89060-01 
0.63140  01  -2.93270-01 
9.18330  01  -2.95470-01 
9.77260  01  -2.97280-01 

1.03440  02  -2.93570-01 
1.00590  92  -2.99360-01 
L.1401D  02  -2 .99850—0 1 
1*19740  02  —3 .00020—0 1 
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H 

5 

5.8820-03 

1.000  00 

5.8820-03 

1.000  oo 

5.0820-03 

i.i ao  oo 

6 .9)30-0  3 

1.100  00 

7.691 D— 0 3 

1,000  00 

7.6010-03 

1.320  99 

1 .9010-02 

1*010  09 

1 *009  0-02 

1 .370  00 

1 .3860-0  2 

1.260  09 

1 .740  0-0  2 

1.530  00 

2.659 0-02 

1.750  00 

4 .6630-02 

7.2  OO- 0 1 

3. 3560-02 

7*520-01 

2.5230-02 

8. 730-01 

2*2010-02 

9.310—0  L 

2.049  0-0  2 

9.640-01 

1 .9750-02 

9. 890-01 

1 .9540-02 

l.OLO  00 

l .9780-02 

1.04D  00 

2 .0490-02 

1.960  00 

2*1790-02 

1.100  00 

2.  3940-02 

1*140  00 

2.7360-02 

1.270  00 

3.4760-02 

1 .350  00 

4 .695  0-0  2 

1 .000  00 

4*6950-02 

7.400- 01 

3*476  0-0  2 

7.070-01 

2.736  0-02 

8.750-01 

2*3940-02 

9 .100-01 

2*  1 79  0-0  2 

9.490-01 

2*049 0-02 

9.650-01 

L .9700-02 

9.080-01 

1.9  540-0  2 

1.010  00 

1 *9750-02 

1.040  00 

2 .0  49  0-02 

1 *070  00 

2.2010-0  2 

1 . 150  0 0 

2.5230-92 

1.330  00 

3.3560-02 

1.390  00 

4.6630-02 

5. 700-0 L 

2*6590-02 

6*540-01 

1 *7  400-02 

7.970-01 

1.3860-02 

7.280-01 

1 .099  0-02 

9.920-01 

1 .0010-02 

7 .590-01 

7.6010-03 

1.000  00 

7.601 0-03 

9.090-01 

6 » 9 1 3D— 03 

0.510-91 

5.6820-93 

1*000  00 

5.0820-03 

1*000  00 

5.0820-02 
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AEDC-TR-78-59 


DC  TODD  CDPS  AR00D3B4  19:16  MON  AUG  07.  1978 

EXAMPLE  6 


K = 15.0 


NO  IN  JCA5E  N NT  JOUT  LPBNT  LNOBM 

250  2 51  30  20  1 I 

It  TDL  BSC 

0.0  5.00000-04  1.000CD-02 

A B C O 

1.00000  00  0.0  0.0  0.0 

1.00000  00  0.0  0.0  o.o 

UNI  FORM  SPACING  COMPUTED 


SOLUTION  GUESSED 


UPDATE 

t 

7 

1 

SI 

6 . 990—0  L 

1.50D  01 

3 

.670-01 

NEW  SPACING 

COMPUTED 

UPDATE 

2 

12 

1 

26 

1 .310-03 

6.66D-04 

2 

•690-04 

UPDATE 

3 

0 

0 

0 

0.0 

0.0 

0 

.0 

CONVERGED  SOLUTION 

CHEKDE  1 9 

2. 2BD- IS 

0«  0 

0.0 

0-  0 

CHEKBM  12 

3*  12 

26 

*3.040-0* 

l .5CD-02 

2 * 030—01 

9 .SSD-05 

SOLUTION  WRITTEN  ON  UNIT  20 


t 
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AE  DC-T  R -78-59 


OC  TODD  CDPS  AR00030A  19:16  HON  AUG  07.  1976 

CXAHPue  6 


X 

Y 

YP 

VPP 

1 

H 

S 

l 

0 .0 

0.0 

-1  a 49910 

01 

2,44  740 

02 

0 .0 

4.0  ia o-o 3 

1.000  00 

■» 

4.61  760-0  3 

- 

6 .944^0-03 

-t .38500 

OL 

2 .29050 

02 

-l .69480-04 

4.8  IQ 0—0  3 

2.000  00 

3 

9.63510-03 

- 

1 • 33570-01 

-1  .27820 

01 

2,14440 

02 

-6.60550-04 

4.8180-03 

1.000  00 

4 

1 .44530-02 

- 

1 . 9271D- 01 

- 1.  17830 

01 

2 . 0 0830 

02 

-1.44840-03 

4.8  10  0-0  3 

1.350  00 

5 

1 .92700-0? 

- 

2.471 9D- 01 

- 1 . 08460 

01 

1 .P8I 50 

02 

-2.50990-03 

6.5020-0  3 

1.050  00 

6 

2 .57730— 32 

- 

3. 13060-01 

-9. 67470 

00 

1 .72390 

02 

— 4*  3381 D— 03 

6.6030-03 

1 .000  00 

7 

3 . 257  60—  0 2 

- 

3 .75800- 01 

-8.  553  70 

00 

1. 57420 

02 

-6  • 66 8 3D— 0 3 

6.6030-03 

1.42D  00 

B 

3*  9^  790- 02 

- 

4 , ? 0 4 6D  - 0 1 

- 7.52990 

00 

1 .43860 

02 

-9.43490-03 

9.6290-03 

1 .030  00 

9 

4.90080-02 

- 

4 .96570-01 

-6.22890 

00 

1 .26790 

02 

-1.39080-02 

9.9130-03 

1.480  00 

10 

5 . 89  200—0  2 

- 

5.52350-01 

-5.05040 

00 

1 . 1 1 50D 

02 

-1  .91 160-02 

1 .4*30-02 

1 . 440  00 

1 1 

7.354  80-02 

- 

6 .15010-01 

-7.56370 

00 

9, 24910 

01 

-2 .76810-02 

2 .1030-02 

2 . 21 □ 00 

12 

9,45780-02 

- 

6,  71340-01 

- 1.87130 

00 

7. 10170 

01 

-4.12690-02 

4.6500-02 

B.  170-01 

L 3 

1 • 410  70-01 

- 

6.95280-01 

6.  1 8410-01 

3.96640 

01 

—7 .34860—02 

3 .7970-02 

6.970-01 

14 

1 , 7904D-01 

- 

6. 47320-01 

1.6  0960 

00 

2.38780 

01 

-9.91 160-02 

2.6470-02 

8.700-01 

15 

2.05510-01 

- 

5 . 920  40  — 0 1 

2.331  10 

oo 

1.57760 

01 

-1  • 1555D-0 1 

2.3020-02 

9. 290-01 

1 ft 

2.  205  30-01 

- 

5. 34730-01 

2.62590 

00 

9.96930 

00 

-1 .28530-01 

2.1  380-0  2 

9.64D-01 

17 

2.  49910-01 

- 

4 .76670-01 

2.70020 

00 

5. 32070 

00 

-1  .39350-01 

2,0620-02 

9.910-01 

18 

2 • 70  5 3D—  0 l 

- 

4. 16350-01 

2.85630 

00 

1.36140 

00 

-1 .48560-0 1 

2.0420-02 

1.0ID  00 

19 

2.90950-01 

- 

3 .59980-01 

2.64760 

00 

-2. 14840 

00 

-1 .56530-01 

2.070  0-0  2 

1.040  00 

20 

3. 1 1 650-01 

- 

3 .01  730-01 

2.76940 

00 

-5. 34410 

00 

-1  .63370-01 

2.1450-0  2 

1.060  00 

21 

1.33100-01 

- 

2.43790-01 

2.62240 

00 

-a. 30630 

30 

-1  .69220-0 l 

2.2770-02 

1.100  oo 

22 

3.55670-01 

- 

1 .06480-01 

2. 4 0090 

00 

-1. 1 0800 

01 

-1.74 1 10-0 l 

2. 4950-02 

1.170  00 

23 

5 .80820-01 

- 

1 .30300-01 

2. 09090 

00 

-I  .36040 

01 

-1.78040-01 

2.9270-02 

1.260  00 

24 

4.1010  D—  O 1 

- 

7.53450-02 

1.65240 

on 

-1.61480 

01 

-1  .81020-0  t 

3.677  0-02 

1.4SD  00 

25 

4.46S6D-01 

- 

2 . 6 0 7 70  - 02 

1.01410 

00 

-1. 83040 

01 

-1 .82610-01 

5.3140-02 

1.000  00 

26 

5.00000-0  1 

1 .09  1 30-  03 

-1.584  00- 

03 

-1.94940 

01 

-1  .83240-0  l 

5.3140-02 

6.920-01 

27 

5.53140-01 

- 

2 .62030-02 

-1.01400 

00 

-1 .03330 

01 

-1  .83670-0 1 

3. 6770-02 

7.960-01 

28 

5.89900-01 

- 

7 .54570-02 

-1.65150 

00 

-1.61 730 

01 

-1.8546  0-01 

2.9270-02 

8.520-01 

29 

6.19180-01 

- 

1 .30390-01 

-2.  09010 

00 

-1  .37040 

01 

-1 • 80440-0 1 

2.4950-02 

9.1 30- 0 I 

10 

6.441 30-01 

- 

l i 865  50—  Ot 

-2.40030 

00 

-1 . 10960 

01 

-1 .92300-0 1 

2 .2770—0  2 

9.420-01 

31 

6.66900-0  1 

- 

2 .43640-01 

-2.62200 

00 

-8.31930 

00 

-1*97270-01 

2.  1 450-02 

9.650-01 

32 

6.B835D-01 

- 

3.01 780- 01 

-2.76920 

00 

-5.35560 

00 

-2  .03120-01 

2.0700-02 

9.070-01 

33 

7 . 09  OSD—  0 1 

- 

3. 60030-01 

-2.84760 

00 

-2. 15950 

00 

-2.09970-01 

2.0  420-02 

1.010  oo 

34 

7.29470-01 

- 

4. 16400-01 

-2.856SD 

00 

1 .34970 

00 

-2.17920-01 

2. 0620-02 

1.040  00 

35 

7.50090-01 

- 

4 .76730-01 

-2.70870 

00 

5.30730 

00 

-2.27140-01 

2.1300-02 

l.oao  oo 

16 

7.71470-01 

- 

5 . 34BOO- 01 

-2.62660 

00 

9.95240 

00 

-2.37960-01 

2.3020-02 

1.150  00 

37 

7. 94490-01 

- 

5.92150-01 

-2.33290 

00 

1,57530 

01 

-2. 5095 0-01 

2.6470-02 

1 .430  00 

30 

8. 20960-01 

- 

6.47500-01 

-1 .81450 

oo 

2.39360 

01 

-2.67390-0 1 

3.7970-02 

1.220  00 

39 

8 . 5893D-0 l 

- 

6.95940-01 

-6.41  700- 

01 

3.95170 

01 

-2.93030-01 

4.6500-02 

4.520—0 1 

40 

9.05420-0  l 

- 

6. T297D-91 

1 .87610 

00 

7. 06510 

01 

-3.25310-01 

2.1030-02 

6.960-01 

41 

9 . 26450-01 

- 

6. 16300-01 

3.58460 

oo 

9. 22000 

01 

—3 .38930-0 1 

1 .4630-02 

6.780-01 

42 

9.41080-01 

- 

5.53350-01 

5, 06990 

00 

1 • 11280 

02 

-3  .47510-01 

9.9230-03 

9. 710-01 

43 

9.50990-0 1 

- 

4.97300-01 

6.2474D 

00 

1 .26610 

02 

-3.52720-01 

9.6290-03 

7.070-01 

44 

9.60620-01 

- 

4.31100-01 

7.54730 

00 

1.43710 

02 

-3.57200-01 

6.S030-03 

1.000  oo 

45 

9.67420-01 

- 

3.76  3 20-01 

0-570*0 

00 

1 . 573 1 0 

02 

—3  *59950—0 1 

6.8030-03 

9.560-01 

46 

9.74230-0  1 

- 

3.  14260-01 

9.69100 

00 

1 .72300 

02 

-3.62310-01 

6.5020-03 

7.410-01 

47 

9.80730-01 

- 

2.47500-01 

1.00620 

01 

1,86080 

02 

-3.64140-01 

4.8180-03 

1.000  00 

48 

9. 85550-01 

- 

1.92940-01 

1 .1  7900 

01 

2,00760 

02 

-3.65200-01 

4.0 180—0  3 

1 .000  00 

49 

9.90360-01 

- 

1 .33720-01 

1 .27900 

01 

2. 14410 

02 

-3.65990-01 

4.8100-03 

1.000  00 

50 

9.95160-01 

- 

6,951  70-02 

1.3866D 

01 

2. 29  04  0 

02 

-3,66460-01 

4.0160-03 

51 

1 .00000  00 

0 .0 

1 .50070 

01 

2.44740 

02 

-3.66650-01 
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AEDC -TR-78-59 


DC  TODD  COPS 

ARQ00364 

19116 

HON 

AUG  07.  1978 

EXAMPLE  6 

* 

II 

to 

o 

0 

NOTH 

JC4SE 

N 

NT 

JOUT 

LPftNT 

LNQRM 

250 

1 

51 

30 

20 

1 

l 

1 1 

TOL 

HSC 

0*0 

5 .00000-04 

1 • 00  OOO — 0 2 

A 

0 

c 

D 

1 *0000 0 00 

0.0 

0.0 

0.  0 

1.00000  00 

0.0 

0.0 

0.  0 

uniform  spacing  computed 


SOLUTION  GUESSED 


UPDATE  \ 

NEW  SPACING  COMPUTED 

7 

1 

SI 

7 *740—01 

2 .000  01 

4 .00D-01 

UPDATE  2 

12 

1 

26 

2.640-03 

1 .450-03 

5 *0  ID— 04 

UPDATE  3 

0 

0 

0 

0.0 

0 .0 

0.0 

CONVERGED  SOLUTION 

CMEKDE  33  8.02D-1S 

0.0 

0.0 

0.  0 

CHEKBM  12  11  12 

26 

2.16D-03 

3,  530-02 

S .650-01 

1 .930-04 

SOLUTION  *RtTTEN  ON  UNIT  20 
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A E DC-T  R -7B--59 


OC  TOOD  COPS  AR00038 4 19*16  MON  AUG  07.  1978 

Example  6 


X Y 

YP 

l 

0.0  0.0 

-1 . 99790 

01 

2 

4.12620-02  - 7 • 69530  - 02 

- 1 *6?1  2D 

01 

3 

Q . 2 5 2 4 D—  0 2 -1.51290-01 

- 1 .67720 

01 

4 

1.23790-02  - 2.1  7520-01 

- 1 , 524 7D 

0! 

5 

l. 65050-07  -2.7809D-0I 

-1 . 4029D 

01 

6 

2.09830-12  -3, 37090-01 

-1 . 271 OO 

Ot 

7 

2.7  39  2D—  02  -4*13790-01 

-1 • 1 001D 

ot 

d 

2 .38  030—  0 ° -4.79360-91 

-9,40360 

00 

9 

4 *P  3450—  0 2 - S .36 BED- 

-6.  10910 

00 

10 

S . 06  8017—02  -6.10  7 3D- 01 

-6.24210 

00 

11 

6.17830-02  -6.70500-01 

— 4.5  8540 

00 

12 

7.96840-02  - 7.3325D-91 

- 2.54330 

00 

13 

1. 25590-01  -7.7Q30D-01 

5.950OD- 

-01 

14 

1.65  3217-01  -7.16770-01 

1 • 96860 

00 

15 

1.92570-01  -6. 55150-41 

2.511  70 

re 

16 

2.16320-01  -5.91740-01 

2.00570 

00 

17 

2.783RD-01  — ^ .279  10—01 

2. 56230 

00 

10 

2.59790-91  -4.63950-01 

3 ,02420 

00 

19 

2.80B6D-0L  -■.99980-01 

3. 00970 

00 

20 

3.022*0-01  -2. 26050-01 

2.92570 

00 

21 

3.24700-01  — 2 .72320- 91 

2.771 7D 

00 

22 

3. 48460—0 1 -2.09070-01 

2 .54080 

00 

23 

3.74500-01  -1*46970-01 

2*21 770 

00 

24 

4.046SU-01  -0*67190-02 

1 . 76610 

00 

25 

4 . 42910—  0 L -2.16110-02 

1. 09960 

00 

26 

5. 00000-01  7.67500-05 

-1.43200- 

03 

77 

5.5709D-01  -3.1 7260—02 

- 1 . *59990 

00 

28 

5.95350-01  -8.68060-02 

- 1 • 765  OD 

00 

29 

6 « 25 SOD- 0 1 — 1 . 4703D— 0 1 

— 2.216  9D 

00 

70 

6.51540-01  — 2 • 091  ID— 0 1 

-2*54030 

oo 

31 

6.75300-01  — 2 • 7 22  60— 0 l 

-2.771 50 

00 

32 

6.97630-01  -3. 36090-01 

-2,92570 

00 

33 

7.19140-01  -4.00020-01 

- 3.  01  010 

00 

34 

7.40300-01  -4.64000-01 

-3*  02490 

00 

3S 

7.61620-0  1 -5.2  79  8D—  0 1 

-2. 96250 

00 

36 

7.H36QD-01  -5.91840-01 

-2 . 00780 

00 

37 

8.^74^D-->1  - 6 . 553  2D— 01 

-2.51550 

00 

38 

8. 34680-01  —7*171  2D—  01 

-1 . 9797D 

00 

39 

3.74410-01  -7.71820-01 

-6.43000- 

01 

40 

9*293=jO-,,»  1 -7.36920-01 

2.571 20 

00 

4 1 

9.36220-01  -6 .73210-01 

4.64620 

00 

42 

9.49710-01  -6.12820-01 

6.29260 

00 

43 

9.59650-01  -5.38410-^1 

8. 15600 

00 

44 

9,66200-01  — 4 * 80660—  0 1 

9*52710 

00 

45 

9.72610-01  -4.14020-01 

1.1 0420 

01 

46 

9.79320-9  1 -3.30660-31 

1 .27480 

01 

47 

9,83500-01  -2.78700-01 

1.40670 

01 

40 

9.87620-01  -2.17970-01 

1 . 53040 

01 

49 

9.9 l 750-01  -1.51590-01 

1 .68C9D 

01 

so 

9,9507  0—  0 1 -7.91010-02 

1 • 83490 

01 

51 

1.00000  00  0.0 

2.  001 50 

01 

YPP 

| 

H 

4,  19740 

02  0.0 

4* 1260-02 

3.B808D 

02  -1 .6525D-04 

4. 1260-03 

3 « 50930 

02  -6.42450-04 

4. 1260-0  3 

3.72070 

02  -1.40540-03 

4 . 1260-02 

3.07320 

02  -2.42970-03 

4 . 4760-03 

2,  62600 

02  -3.6 1040-03 

6*4110-03 

2.50980 

02  -6*22580-03 

6.4 11 0-03 

2 * 2 3 06  0 

02  -9.09410-03 

6*5420-03 

1 .97990 

02  -1.24230-02 

1.0340-02 

1 .64400 

02  -1.33740-02 

1.  1090-02 

1.15190 

02  -2,54990-02 

1 .7900-02 

9. 94530 

Ot  -3.81170-02 

4. 5910-02 

4.66800 

01  -7,31730-02 

3.9730-02 

2*47660 

01  -1  *02890-01 

2.7250-02 

1.55190 

Ot  -1  . 2 1 6 20 — 0 l 

2,3740-02 

9.464  3D 

00  -1.36440-01 

2.2070-02 

4.85980 

00  -1  .48800-01 

2 .1220-02 

1 .03140 

00  -1.59370-01 

2*1 16D-02 

-2. 33940 

00  -1. 68510-01 

2. 150  0-0  2 

-5.42320 

00  -1.76420-01 

2 .2330-02 

-8*31360 

00  -1.83210-01 

2. 3760-02 

-1  . 1 0600 

01  -1.88920-01 

2*6040-0  2 

-l  .36760 

01  -t. 93540-01 

3.0150-02 

-1 .61500 

0 t - 1 .97020-0 l 

3*8260-0  2 

-l .04000 

01  -1.99210-01 

5*7090-0  2 

-1 .97090 

01  -1.99810-01 

5. 7090-02 

-l  ,84460 

91  -2.00410-01 

3.826D-02 

-1 • 61  930 

01  -2.02600-01 

3.0  150-02 

“1 .3T00D 

01  -2.06090-01 

2*6040-02 

-1  . 10780 

01  -2.10710-01 

2*3760-92 

-0.32770 

00  -2.16420-01 

2*2330-02 

-5.43670 

00  -2.23200-01 

2* 1500-02 

-2.35440 

00  -2.311  L 0—0  I 

2.  1160-02 

! * 01220 

00  — ? ,40260—0 l 

2*  1320-02 

4.83290 

00  -2.50030-01 

2.2070-02 

9.42120 

00  -2*63190-01 

2.3740-02 

1.54510 

01  —2.7  80 1 0—0 1 

2.7250-02 

2.46260 

Ot  -2.96750-01 

2 .9730-02 

4*60710 

01  -3.26500-01 

4.591D-02 

9.80010 

01  -3.61690-01 

2 .7900-02 

1 .34 1 10 

02  -3.74270-01 

l - 1090-02 

1 .63560 

02  —3  * 81  5 2D— 0 1 

l *0340-02 

1.97730 

02  -3.87490-01 

6.542D-03 

2.22540 

02  -3.90030-01 

6*41 10-03 

2.50570 

02  -3.93700-01 

6.4110-03 

2.82370 

92  -3.96130-01 

4.4  76D-03 

3.07000 

02  -3.97510-01 

4* 1260-03 

3 .31890 

02  -3*90540-01 

4.126  0-Q3 

3.5861D 

02  -3*9930  0-01 

4. 1260-03 

3.08020 
4.1 9740 

02  -3*99780-01 

02  -3.99940-01 

4. 1260-03 

s 

1.000  00 
1 .000  00 
1 .000  00 
1 .080  00 
1.430  00 
1.000  00 
1*020  00 
1.580  00 
1.070  00 
1.610  00 
2.560  00 
a • 650-  0 1 
6.8  60- 0 l 
0.710-01 
9.3  OD- 0 I 
9. 660-01 
9.930-  01 
1.020  00 
1.040  00 
1.06D  00 
1*100  00 
1.160  00 
1.270  00 
l .490  00 
1.000  00 
6.700-  Ot 
7.080-01 

8*640-01 

9.130-01 
9 * 400-0  1 
9.630-01 
9.840-  01 
1.010  00 
1.040  00 
1.060  00 
1 . 1 50  00 
1.460  00 
l . 1 60  00 
3.900-01 
6.200-01 
9.320-01 
6.330-01 
9.800-01 

1.000  00 
6 . 980— 0 L 
9.220-01 

1.000  00 

1 .000  00 

1.000  00 


A E DC-T  R-78  -59 


OC  TO  DO  C DPS 

ARQ003B4 

lo:i6 

MON 

AUG  07*  1070 

EXAMPLE  6 

K = 25 

.0 

NO  IN 

JCASE 

N 

NT 

JOUT 

LPRNT 

LNORM 

2*0 

4 

51 

TO 

20 

1 

1 

1 1 

TOL 

RSC 

0*0 

5.00000-04 

1.00000-02 

A 

e 

C 

O 

1 .00900  00 

0.0 

0.0 

0*0 

1*00000  00 

0.0 

0.0 

0.0 

UNIFORM  SPACING  COMPUTED 


SOLUTION  GUESSED 


UPDATE 

l 

6 

1 

61 

8.220-01 

2.51D  01 

4*200-01 

NEW  SPACING 

COMPUTED 

UPDATE 

2 

12 

1 

26 

3.660-03 

2.330-0  3 

5.93D-04 

UPDATE 

3 

0 

0 

p 

0.0 

0*0 

0.0 

CONVERGED  SOLUTION 

CHEKOE  16 

5.37D- 14 

0.0 

0«  0 

0.0 

CHEK8M  12 

tl  12 

2* 

2.070-03 

6..ID-0Z 

1 .060  00 

2.350-04 

SOLUTION  WRITTEN  ON  UNIT  20 
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A E DC-T  R -78-59 


DC  todd  cops 

EXAM  PL  E 6 


AR0003B4  19!1G  MON  AUG  07*  1970 


X V YP 


1 

0.0  0.0 

-2*49690 

ot 

2 

3 .6-O.t  20- 03  - a. 67650- 02 

-2*2  7-210 

01 

3 

7,262*0-03  -1.65700-Ot 

- 2.06630 

01 

4 

1.  09240-02  —2.374  50  — 01 

-1*07780 

01 

5 

1.45650-02  -3.02630-01 

- 1 • 7 0500 

01 

6 

1.62  0 60-32  -3. 61750-01 

- 1 .54660 

01 

7 

2.31680-0?  -4.33  6 00-  01 

- 1*35170 

01 

8 

2. 94*20-02  — 5. Ill  30-01 

-1 *13600 

01 

9 

3.56560-02  - 5.76  1 70-61 

-9.51 1 00 

00 

10 

4.34090-0  2 -6.4  2050-01 

— 7 .55200 

00 

1 l 

S.  461  10-02  - 7.1336D-01 

-5.26570 

00 

12 

7.  14840-02  — 7.79990-01 

-2*79970 

00 

13 

1.14660-01  -8.17760-01 

6*  1 <3860-01 

14 

1.54800-01  -7.60450-01 

2 *06  760 

00 

15 

1.82730-01  -6.5461D-01 

2*60290 

00 

16 

2.06940-01  -6.27920-01 

2*09420 

00 

17 

2.29670-01  -5.6046D-01 

3*  03500 

00 

18 

2.51710-01  -4.92T5D-01 

3*09400 

00 

19 

2.73610-01  -4.25020-01 

3*  09010 

00 

20 

2. 95810-01  -3. £7440-01 

2*99690 

CO 

21 

3. 18770-01  -2.90260-01 

2. 8443D 

00 

22 

3. 43250-01  -2.23330-01 

2*61310 

00 

23 

3.701 8D— 01  -1.57210-01 

2- 2 05  70 

00 

24 

4.00940-01  -9, 36910-02 

1*631  ID 

00 

25 

4.4  0 2 80-  01  -2.4  7 2 80-  02 

1 « 15050 

00 

26 

5.0000D-01  -5.1  3 5 2D—  06 

-1 .26070-03 

27 

6.59720-01  -3.48300-02 

- 1 * 1 5050 

00 

25 

S.  99060-01  -9.37570-02 

-1.83000 

00 

29 

6.29820-01  -1.57250-01 

-2.20500 

DO 

30 

6.567  50 — 0 1 -2,23360-01 

-2.61260 

00 

31 

6.81230-01  —2*902  BO—  0 1 

-2.04410 

00 

32 

7.04190-01  -3.57460-01 

-2.  99700 

00 

33 

7.26390-01  —4.25040—01 

-3*  08040 

00 

34 

7.48290-01  -4.92780-01 

-3, 09S30 

00 

35 

7.70330-01  -5.60510-01 

- 3*03600 

00 

36 

7.93060-01  -6.28000-01 

-2  *80620 

00 

37 

8.1T27D-01  -6.94760-01 

-2.60690 

00 

38 

8.45200-01  -7.60820-01 

-2. 00230 

00 

39 

8.85340-01  -8.19850-01 

-7.061  80- 

01 

40 

9 . 28520—0  1 -7.84940-01 

2*64  700 

00 

4 1 

9.45390-01  -7. 16920-01 

5.35680 

00 

42 

9. 56590-01  -6.44710-01 

T.629QD 

00 

43 

9.64340-01  -5.78220-01 

9.58100 

00 

44 

9.70590-01  -5.12760-01 

1.14310 

01 

45 

9.76630-01  -4.34850-01 

1 *35760 

Oi 

46 

9.61790-01  -3. 62760-01 

1 .55220 

01 

47 

9.S544O-01  -3.03400-01 

1*71040 

01 

48 

9.89080-01  -2.38020-01 

1 *88310 

01 

49 

9.92720-01  -1.66070-01 

2.07150 

01 

50 

9.96360-01  -8.69530-02 

2.27730 

01 

51 

1.00000  00  0.0 

2.50210 

01 

YPP 

I 

H 

6.44  740 

02 

0.0 

3.6410-03 

5.90420 

02 

-1 .60450-04 

3.6410-03 

5*40830 

02 

-6. 22360-04 

3*641 0—0  3 

4.95550 

02 

-1 .3584D-03 

3*641 0—03 

4.5420D 

02 

-2*14360-03 

3.6410-03 

4. 164S0 

02 

-2.55500-03 

4.9620-03 

3. 7023D 

02 

—5 . 53  230—0  3 

6 • 2440-03 

3. 1963D 

02 

-8.40060-03 

6*2440-03 

2 . 76330 

02 

-l • 16900-02 

7.7530-03 

2*311 SD 

02 

-1  *66220-02 

l - 120D-C2 

1 *79520 

02 

—2*4238  0—02 

1 • 607  D—0  2 

1 *24290 

02 

-3*60940-02 

4 * 3 18  0—0  2 

5*10820 

01 

-7.  1909  0-02 

4*0140-02 

2*43000 

01 

-1  *0  3780-01 

2.7930-02 

1 .46510 

Ol 

-1.24  13D-0  1 

2*421 D-02 

0.854  10 

00 

-i  .40150-0  1 

2*2730-02 

4.54220 

00 

-1 *53660-01 

2 *2050-02 

9.56630- 

-01 

-1  .65270-0  1 

2.  190  0-02 

-2*  24  01  o 

00 

-1*75320-01 

2*  220  0-0  2 

-5.21 2 70 

00 

-1 *54000-01 

2 * 2960-0  2 

-0.04310 

00 

-1*91 430-01 

2.4460-02 

-1 • 07890 

01 

-1 .97710-01 

2.6930-02 

-1.34560 

02 

-2.02010-01 

3.0760-02 

-1*59070 

01 

-2.06630-0  1 

3*9340-02 

-1  * 8326D 

01 

-2.09070-0 1 

5.9720-02 

-1 .97420 

01 

“2 .09770— Ot 

5.9720-02 

-1  * 83900 

01 

-2.10460-01 

3*9340-02 

-1 .60290 

01 

-2.12900-01 

3.0760-02 

-1.34  790 

01 

-2.16730-0 1 

2*6930-02 

-1 . 980*0 

01 

-2*21830-0  l 

2,4480-02 

-8. 0538D 

oo 

-2.20110-0 1 

2*2960-02 

-5.222*0 

00 

-2.35540-0 1 

2*2200-02 

—2 • 25140 

00 

-2*44220-0 I 

2.  190  0-02 

9*40450- 

01 

-2.54270-01 

2*  2050-02 

4*51600 

00 

-2*65000-01 

2. 2730-02 

8.  80 760 

00 

-2.79400-0  1 

2.4210-02 

l *45620 

01 

-2*95420-01 

2*7930-02 

2.40720 

01 

-3*15  70  0-01 

4*0140-02 

4.97760 

01 

-3.47600-0  1 

4*3160-02 

1*21200 

02 

-3.82880—01 

1 .6870-02 

1.77300 

02 

-3*95610-01 

1 • 1200-02 

2*29510 

02 

-4 .03260-01 

7. 7530-03 

2 .75030 

02 

-A. 08010-01 

6*2440-03 

3* 18610 

02 

-4.1J42D-01 

6*2440-03 

3 .69440 

02 

-4.14380-01 

4*9620-03 

4*15840 

02 

-4.16370-0  1 

3*6410-03 

4*53720 

02 

-4.1750D-O1 

3*6410-03 

4*95190 

02 

—4  * 1 857  D—0  1 

3.641 0-03 

5*40600 

02 

-4.19310-01 

3*6410-03 

5*90310 

02 

-4.19770-0  1 

3*6410-03 

-|  6*44740 

02 

-4*1993  0-01 

S 

1.00D  DO 
1 *000  00 
1 . 00D  00 
1 • ODD  00 
1*360  00 
1*260  00 
1*000  00 
1 « 2 AO  00 
1 * 4 AD  00 
1*510  00 
2 .560  00 
9*3  00- 0 l 
6.960-01 
8.6  70-01 
9.390-0 1 
9 * 700-  01 
9.930-01 
1.010  00 
1*030  00 
1.07D  00 
I.IOD  00 
1*1  AD  00 
1*260  00 
1*520  00 
1 * OOD  00 
6*590-  01 
7 .820-0 1 
0 * 750-  0 1 
9*090-01 
9*380-01 
9*670-01 
9*660-01 
1*010  00 
1.030  00 
1*060  00 
1*150  00 
1*640  00 

i.oeo  oo 

3*910—  0 1 
6*640-0 1 
6.920-01 
8*050—01 
1.000  00 
7,950-01 
7 * 340-01 
1*000  00 
1.000  00 
1 .OOD  00 
1.000  00 


STOP 


AEDC-TR-78-59 


DC  TODD  C DPS  AHO0O3B4  19:20  HON  AUG  07.  1978 

EKAMPLE  7 *"  s ElPIr) 

J = 19  LAMBDA  = 8 .92  5224  0994  5520- 01  40E4 7C5941 A9C251  40EA  7C  594  I A9C  251 

ND1M  JCASE  N NT  JOUT  LPKNT  LNORM 

250  l 51  30  20  1 ] 

tl  TOL  BSC 

0.0  5.0000D-04  1.00000-02 

A a C D 

1.00000  00  0.0  0.0  0.0 

l.ooooo  oo  o.o  o.o  o.o 


UNIFORM  SPACING  COMPUTED 
SOLUTION  GUESSED 


UPDATE  1 

NEW  SPACING  COMPUTED 

26 

51 

61 

1. 130-01 

4. 620-01 

7*580—02 

UPDATE  2 

?6 

BO 

51 

4 .62D-OJ 

t .640-03 

4 . 30  D— 03 

UPDATE  3 

26 

50 

61 

8 .540-00 

2.94D— 08 

7.860-08 

CONVERGED  SOLUTION 

CHE1COE  28  Z. 330-1 6 

0.  0 

0.0 

0.0 

CHEKBM  50  2 7 40 

0 

2.1  7D-07 

I . 050-06 

4 . 73  D— 09 

0.0 

SOLUTION  BRITTEN  ON  UNIT  20 
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oc  raoo 

COPS 

ARQ00384 

19:20 

Example 

7 

V ■ * - EXPCVl 

K 

Y 

YP 

YPP 

1 

0.0 

0,0 

-4.63630-01 

1,00000  00 

2 

1*88330-02 

-8  , 55470-  03 

-4.44800-01 

9.91 480-01 

3 

3.77960-02 

- 1 .68130-02 

-4.26160-01 

9,83330-01 

4 

5 .68050—0? 

- 2, 47700-02 

— 4.0  7460—01 

9.75530-01 

5 

7.60990-0  2 

- 3. 24190-02 

-3,88790-01 

9,68100-01 

6 

9 , 543*0-02 

-3  .9755D-02 

-3.701  40-01 

9.61020-01 

7 

1 .14880-0  1 

- 4.6  7 7 60-02 

-3.51510-01 

9.54300-01 

8 

1.3**50-01 

-5  .34660-02 

— 3.3  2910—0 1 

9. 47940-01 

9 

1.54120-01 

-5  .98340-02 

-2.14320-01 

9.4 1 920  — Ot 

10 

1.73900-0 I 

-6.58670-02 

-2 .95750-01 

9.36260-01 

11 

1 .93770-0  L 

-7. 15600-02 

-2. 771  90-01 

9.30940-01 

12 

2*  13740-01 

-7.691  10-02 

-2. 56650-01 

9. 25970-01 

13 

2.33800-01 

-6. 191 10-02 

-2.401  2D- Cl 

9.21 350-01 

1* 

2.53950-01 

— 0 *65630—02 

-2.21610-01 

9* l 7000-01 

15 

2.741 70-01 

-9. 085  70-02 

-2.03100-01 

9*13150-01 

16 

2.94460-01 

-9. *7910-02 

-1 .04610-01 

9.09560-01 

17 

3 .14820-01 

-9.83620-02 

- 1 .66120-01 

9.06320-01 

16 

3.3S24O-01 

- 1 .01570-01 

- 1 *47650-01 

9.03*20-01 

19 

3.55720-01 

- 1 . 0440D-0 1 

-1 .291  SO—  Cl 

9.00870-01 

20 

3,762*0-01 

-1 .06B6D-01 

-1 .10710-01 

8.  96650—0 1 

21 

3.96600-01 

- 1 .00950-01 

-9.22520-02 

8, 96700-01 

22 

4.1 7400-01 

-1.1 0660-01 

-7. 3797D-02 

0. 95250-01 

23 

*. 38030-0 1 

- 1 . 1 1990-01 

-5.53*50-02 

8.94  050-  0! 

24 

4.50670-01 

- 1 . 12940-01 

-3*68950-02 

8.93200-01 

25 

4.79330-01 

-1 . 1 35 ID- 01 

-1 .8*470-02 

0. 92690-01 

26 

5**3000-0 1 

- 1 .13  700-01 

-1.93270-08 

8.92520-01 

27 

5*20670-01 

- 1 ♦ 1351D-01 

1.8*470-02 

9*92690-01 

2B 

5.41330-01 

- 1 .1  29*0-01 

3.68950-02 

8.93200-01 

29 

5.61 970-0 i 

-1.11  99D-01 

5.53*50-02 

9.94050-01 

30 

5.62600-01 

-1*1  0660’-  0 1 

7.3797D-02 

8,95250-01 

31 

6, 03200-01 

- 1 • 0S9SD-01 

9 .2  2520—  02 

8,96700-0! 

12 

6, 2376D-01 

- i.oeetD-oi 

1 .10710-01 

8.98650-01 

33 

6.442  QD—  0 1 

- 1 . 04400-0  1 

1 ,291 00-01 

9. 00870-01 

3* 

6*64  760-01 

- 1 . 01  570-01 

1 .47650-01 

9.03420-01 

35 

6*85180-0  1 

- 9.83620-02 

1.66120-01 

9.06320-01 

36 

7*05S4D-0 l 

-9.47910-02 

1 .84610-01 

9. 09560-01 

37 

7.25820-01 

- 9*  08570- 02 

2.031  00-01 

9, 1 3150-01 

38 

7*46  'ISO—  0 1 

-0. 65630-02 

2.2161 D—  H 1 

9.  1 7080-01 

39 

7.66200-0  l 

-9,19130-02 

2.401  20-01 

9. 21350-01 

40 

7 .86260- 01 

- 7 .691  ID  — 0 2 

2. 58650-01 

9*  25570-61 

41 

8 .06230—0 1 

- 7. 1560D-02 

2,77190-01 

9 .30940—9 l 

*2 

8.261 00- 0 1 

-6.5667D-02 

2.95  750-01 

9.36260-01 

*3 

8.45860-01 

-5  .98350-02 

3.1 *220-01 

9*41920-01 

*4 

8 .65550- 0 1 

- 5 • 3*680-02 

2. 32910— Cl 

9.47940-01 

45 

8 .851  2D—  0 1 

— 4.67T*d~02 

3.5151 D—  0 1 

9.54300-01 

*6 

9.0*570-01 

-3 .97550-02 

2.  701  *0-01 

9.61020-01 

47 

9.2390D- 01 

- 3.2*190-02 

3.68790-01 

9.66100-01 

48 

9.431  10-0  1 

-2.47700-02 

*.07*60-01 

9. 75530-01 

*9 

9.62200- 0 1 

- 1 ,68130-0? 

4.26160-01 

9, 83330-01 

50 

9.811 70-01 

- 8.554  7D-03 

4.44000-01 

9. 91480-41 

51 

1.00000  00 

0.0 

4, 63630-01 

1.00000  00 

STOP 


MON  AUG  07, 


1 

0.1 

-8. 1 1080-05 
-3 .22190-0* 
-7,1986  0-0* 
-1,26960-03 
-1 ,96790-03 
-2,81010-03 
-3. 79  12D-03 
—4  ,90630-0  3 
—6, 1 *990—03 
-7.5162D-03 
-8.99940-03 
-1  *05930-02 

— 1 • 22900—02 
-1  *40850-02 
-1 .59690-02 
-1 . 79360-02 
-1  .99780-02 
-2.20870-02 
-2. 425*0-02 
-2 • 6*750-02 
-2,87380-02 
-3.10340-02 
-3 .33570-02 
-3.56970-02 
-3.80*60-02 
-*  .03940-02 
-4.2734D-02 
-4, 50570-02 
-4,735*0-02 
-4 .96160-02 
-5,18350-02 
-5.400*0-02 
-5,61130-02 
-5.81550-02 
-6.01220-02 
-6.20060-02 
-6.38010-02 
-6.54980-02 
-6  .70920-02 
-6.6575 0-02 
-6.99*10-02 
-7*11850-02 
-7*23000-02 
-7.32810-02 
-7. *1230-02 
-7.48220-02 
-7.53720-02 
-7  .576  90-0  2 

— 7,69 10D— O 2 
-7.609  L 0-02 


1978 


H 

1*8830-02 
l .8960-02 
l .9090-02 
I .9210-02 
1 .9330-02 
1 .9450-02 
1.9560-02 
l .9670-02 
1 .9780-02 
l .9080-02 

1 .9970-02 
2.0060-02 
Z.O  1*0-02 
2.0220-02 
2,029  0-02 
2*0360-02 
2.0*20-02 
2 .0470-0 2 
2.0520-02 
2.0560-02 
2.0600-02 
2.0630-02 
2*0650-02 

2 m 066  0—0  2 

2.0670-02 
2*0670-02 
2*066  0-02 
2 .0650-02 
2*0630-02 
2 .0600—02 
2*0  560-02 
2.0520-02 
2.0470-02 
2 *0  420-0? 
2.0360-02 
2.0290-02 
2. 0220-02 
2*0140-02 
2.006D-02 
1 .9970-0  2 
1*908  0—0  2 
1*978  0-0  2 
1 *9670-02 
1.9560-02 
I .9450-02 
1 .9130-02 
1.921 0-02 
1 .909  0-0  2 
1 *8960-02 
1.8830-02 


S 

1.010  00 

1.010  00 

1 .010  00 

1.010  00 
1*010  00 
1 ,010  00 
1*010  00 
1.010  00 
1 .01 D 00 
1*000  00 
2.000  00 
l .000  00 

1.000  00 

1.000  CO 
1 .000  00 

1.000  00 

1.000  00 
1 .000  00 

1 .000  00 
1*000  DO 

1.000  00 

1.000  00 
1*000  00 

1.000  00 
1 *000  00 

1.000  00 

9.990- 01 

9.990- 01 
9*990-01 
9. 980-01 
9*980-01 
9.980-01 
9,970-01 
9*970-0  1 
9*970-01 
9*960-01 
9*960-01 
9.960-01 
9*960“ 0 t 
9.950-01 
9.950-01 
9 *950—01 
9.9*0-01 
9,9*0-01 
9.9*0-01 
9.94D-01 
9.940-01 

9.930- 01 

9.930-  01 
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al , 
a2i 

A,j,  i = 1 and  N, 
j = 1 and  N 

Ai,  Bj,  Cj,  Dis 
i = 1 and  N 

^lmjk 

D 

Dmi 

E 

Ei 

F 

f(x,  y,  y',  I) 

gi 

H 

hi 

I 

Ii 

J, (a,b) 

K, (a,b) 
k 

yi; 


NOMENCLATURE 

Eq.  (104) 

Eq.  (105) 

Eqs.  (B-26)  thru  (B-29) 

End  conditions  parameters,  Eq.  (24) 

System  coefficients,  Eqs.  (Ill)  thru  (133) 

Differentiation  operator,  Eq.  (40) 

Eq.  (110) 

Eq.  (B-4) 

Operator,  Eq.  (38) 

Eq.  (B-5) 

Eq. (134) 

Integral  of  quintic  spline  at  Xj,  Eqs.  (95)  and  (96) 

Eq.  (B-l) 

Length  of  the  ith  interval,  Eq.  (1) 

Integral  of  y(x),  Eq.  (93) 

Value  of  I at  xs 

Integral  of  the  cubic  spline,  Eq.  (27) 

Integra]  of  the  quintic  spline,  Eq.  (89) 

Parameter  in  example  problems,  Eqs.  (146),  (152),  (159),  and 
(169) 

Second  derivative  of  the  cubic  spline  at  x;,  Eq.  (8) 
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M 

mi 

»“w 

m 

3lij 

N 

Pi(x) 

Qi 

qi(x) 

Ri 

x(x) 

V, 


Eq.  (B-3) 

First  derivative  of  the  cubic  spline  at  x,,  Eq.  (7) 

Eq.  (B-2) 

First  derivative  of  the  quintic  spline  at  x*,  Eqs.  (74)  and  (65) 

/ 

Second  derivative  of  the  quintic  spline  at  x1;  Eqs,  (75)  and  (59) 
Number  of  points 

Cubic  spline  polynomial  in  the  ith  interval,  Eqs.  (5)  and  (11) 

Eq.  (98) 

Quintic  spline  polynomial  in  the  ith  interval,  Eqs.  (73)  and  (86) 
Eq.  (109) 

Cubic  spline,  Eq.  (5) 

Eq.  (108) 


x Independent  variable 

Xi  Given  abscissas 

y Dependent  varaible 

Yaj,  ypi  Used  in  definition  of  pj(x),  Eqs.  (9)  and  (10) 

Yau  Ybi>  Yen  Ydi  Used  in  the  definition  of  q,(x),  Eqs.  (82)  thru  (85) 

y;  Given  ordinates  or  else  y(x,) 

z(x)  Quintic  spline,  Eq.  (73) 

Zj  z(Xj) 

a(x),  jS(x),  X(x),  e(x)  Coefficients  of  linear  or  linearized  differential  equation,  Eqs.  (92) 

and  (136)  thru  (139) 


Parameter  used  in  definition  of  Eq.  (66) 
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Ai 

T?i 

Oi 

X 

\j,  i = 1 and  3Sl 
o\ 


Parameter  used  in  definition  of  Hij,  Eq.  (60) 
Eq. (3) 

Eq.  (4) 

Eqs.  (153)  and  (177) 

Lagrange  multipliers,  Eq.  (B-5) 


Eq.  (2) 
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